diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-01-27 00:24:15 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-01-27 00:24:15 +0100 |
commit | 919e864968c14d167c512f04fd4f06f3dcf08a00 (patch) | |
tree | 3864c2aebe470dbc93735bb92ffb1eebb59b1d24 | |
parent | 126a1cd7c125fe2cce9c322bf4b1713f560fdabb (diff) | |
download | org-mode-919e864968c14d167c512f04fd4f06f3dcf08a00.tar.gz |
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.
-rw-r--r-- | lisp/org.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org.el b/lisp/org.el index c9ee2ab..db780b3 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) " ") |