mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 18:00:49 +00:00
ox: Fix a docstring
* lisp/ox.el (org-export-get-node-property): Fix docstring.
This commit is contained in:
parent
d229dd9662
commit
0122746f5b
12
lisp/ox.el
12
lisp/ox.el
|
@ -4028,19 +4028,19 @@ inherited from parent headlines and FILETAGS keywords."
|
|||
;; Add FILETAGS keywords and return results.
|
||||
(org-uniquify (append (plist-get info :filetags) current-tag-list))))))
|
||||
|
||||
(defun org-export-get-node-property (property blob &optional inherited)
|
||||
"Return node PROPERTY value for BLOB.
|
||||
(defun org-export-get-node-property (property datum &optional inherited)
|
||||
"Return node PROPERTY value for DATUM.
|
||||
|
||||
PROPERTY is an upcase symbol (i.e. `:COOKIE_DATA'). BLOB is an
|
||||
PROPERTY is an upcase symbol (e.g., `:COOKIE_DATA'). DATUM is an
|
||||
element or object.
|
||||
|
||||
If optional argument INHERITED is non-nil, the value can be
|
||||
inherited from a parent headline.
|
||||
|
||||
Return value is a string or nil."
|
||||
(let ((headline (if (eq (org-element-type blob) 'headline) blob
|
||||
(org-export-get-parent-headline blob))))
|
||||
(if (not inherited) (org-element-property property blob)
|
||||
(let ((headline (if (eq (org-element-type datum) 'headline) datum
|
||||
(org-export-get-parent-headline datum))))
|
||||
(if (not inherited) (org-element-property property datum)
|
||||
(let ((parent headline))
|
||||
(catch 'found
|
||||
(while parent
|
||||
|
|
Loading…
Reference in a new issue