branch: externals/org
commit 5b985212e60ac75a89cee84713adcbc2beab1515
Author: Slawomir Grochowski <[email protected]>
Commit: Slawomir Grochowski <[email protected]>
; org-colview: Clarify property update predicate
* lisp/org-colview.el (org-columns-compute-all): Bind
update-property-p before passing it to `org-columns--compute-spec'.
Refactoring: Extract Variable.
No behavior change.
---
lisp/org-colview.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index e689906a9c..1b41bb777b 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -1511,8 +1511,9 @@ column specification."
(let ((org-columns--time (float-time))
seen)
(dolist (spec org-columns-current-fmt-compiled)
- (let ((property (org-columns--spec-property spec)))
- (org-columns--compute-spec spec (not (member property seen)))
+ (let* ((property (org-columns--spec-property spec))
+ (update-property-p (not (member property seen))))
+ (org-columns--compute-spec spec update-property-p)
(push property seen)))))
;;;;; Summary operators
