From 0122746f5b983f2853a9609bf4ccc06bdf641135 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Wed, 3 Oct 2018 13:10:35 +0200 Subject: [PATCH] ox: Fix a docstring * lisp/ox.el (org-export-get-node-property): Fix docstring. --- lisp/ox.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/ox.el b/lisp/ox.el index b5f6e5e57..45c94159a 100644 --- a/lisp/ox.el +++ b/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