mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

ox: Fix a docstring 

* lisp/ox.el (org-export-get-node-property): Fix docstring.
This commit is contained in:
Nicolas Goaziou 2018-10-03 13:10:35 +02:00
parent d229dd9662
commit 0122746f5b
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/ox.el
View File

@ -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