From 919e864968c14d167c512f04fd4f06f3dcf08a00 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 27 Jan 2017 00:24:15 +0100 Subject: [PATCH] Fix internal function name * lisp/org.el (org-property--local-values): Rename to... (org--property-local-values): ... this. (org-entry-get): (org-entry-get-with-inheritance): Apply renaming. --- lisp/org.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index c9ee2abdc..db780b356 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -15999,7 +15999,7 @@ strings." ;; Return value. props))))) -(defun org-property--local-values (property literal-nil) +(defun org--property-local-values (property literal-nil) "Return value for PROPERTY in current entry. Value is a list whose car is the base value for PROPERTY and cdr a list of accumulated values. Return nil if neither is found in @@ -16062,7 +16062,7 @@ value higher up the hierarchy." (or (not (eq inherit 'selective)) (org-property-inherit-p property))) (org-entry-get-with-inheritance property literal-nil)) (t - (let* ((local (org-property--local-values property literal-nil)) + (let* ((local (org--property-local-values property literal-nil)) (value (and local (mapconcat #'identity (delq nil local) " ")))) (if literal-nil value (org-not-nil value))))))) @@ -16174,7 +16174,7 @@ However, if LITERAL-NIL is set, return the string value \"nil\" instead." (let (value) (catch 'exit (while t - (let ((v (org-property--local-values property literal-nil))) + (let ((v (org--property-local-values property literal-nil))) (when v (setq value (concat (mapconcat #'identity (delq nil v) " ")