tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

contrib/lisp/org-element.el: Fix docstrings

This commit is contained in:
Nicolas Goaziou 2011-12-25 11:24:56 +01:00
parent 88ef5fe272
commit 44bd38556c
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
contrib/lisp/org-element.el
View File

@ -262,7 +262,7 @@ CONTENTS is the contents of the element."
Return a list whose car is `footnote-definition' and cdr is
a plist containing `:label', `:begin' `:end', `:contents-begin',
`contents-end' and `:post-blank' keywords."
`:contents-end' and `:post-blank' keywords."
(save-excursion
(let* ((f-def (org-footnote-at-definition-p))
(label (car f-def))
@ -547,8 +547,9 @@ CONTENTS is the contents of inlinetask."
STRUCT is the structure of the plain list.
Return a list whose car is `item' and cdr is a plist containing
`:begin', `:end', `:contents-begin', `:contents-end',
`:checkbox', `:counter', `:tag' and `:hiddenp'.
`:bullet', `:begin', `:end', `:contents-begin', `:contents-end',
`:checkbox', `:counter', `:tag', `:raw-tag', `:structure',
`:hiddenp' and `:post-blank' keywords.
Assume point is at the beginning of the item."
(save-excursion
@ -586,13 +587,14 @@ Assume point is at the beginning of the item."
(skip-chars-backward " \r\t\n")
(forward-line)
(point))))
;; Note: CONTENTS-BEGIN and CONTENTS-END can be mixed up in the
;; case of an empty item separated from the next by a blank
;; line.
(list 'item
`(:bullet ,bullet
:begin ,begin
:end ,end
;; CONTENTS-BEGIN and CONTENTS-END may be mixed
;; up in the case of an empty item separated
;; from the next by a blank line. Thus, ensure
;; the former is always the smallest of two.
:contents-begin ,(min contents-begin contents-end)
:contents-end ,(max contents-begin contents-end)
:checkbox ,checkbox