summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2017-01-27 00:24:15 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2017-01-27 00:24:15 +0100
commit919e864968c14d167c512f04fd4f06f3dcf08a00 (patch)
tree3864c2aebe470dbc93735bb92ffb1eebb59b1d24
parent126a1cd7c125fe2cce9c322bf4b1713f560fdabb (diff)
downloadorg-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.el6
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) " ")