branch: externals/org
commit 9dec54dd24afd036b1d0b23594d03e752a823b26
Author: Slawomir Grochowski <[email protected]>
Commit: Slawomir Grochowski <[email protected]>
; org-colview: Clarify nonempty value predicate
* lisp/org-colview.el (org-columns--compute-spec): Rename
`value-set' to `value-nonempty-p'.
Refactoring: Rename Variable.
No behavior change.
---
lisp/org-colview.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index d9d1c50472..8066ad07cd 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -1455,7 +1455,7 @@ existing ones in properties drawers."
(let* ((pos (match-beginning 0))
(value (if collect (funcall collect property)
(org-entry-get (point) property)))
- (value-set (org-string-nw-p value)))
+ (value-nonempty-p (org-string-nw-p value)))
(cond
((< level previous-level)
;; Collect values from lower levels and inline tasks here
@@ -1473,12 +1473,12 @@ existing ones in properties drawers."
(when update-property-p
(org-columns--update-summary-property property value summary)))
;; Add current to current level accumulator.
- (when (or summary value-set)
+ (when (or summary value-nonempty-p)
(push (or summary value) (aref values-by-level level)))
;; Clear accumulators for deeper levels.
(cl-loop for l from (1+ level) to deepest-level
do (aset values-by-level l nil))))
- (value-set (push value (aref values-by-level level)))
+ (value-nonempty-p (push value (aref values-by-level level)))
(t nil)))))))
;;;###autoload
