branch: externals/org
commit d4a7b8350e4bf4fb3e9f1c95a5b4d056913ed3db
Author: Slawomir Grochowski <[email protected]>
Commit: Slawomir Grochowski <[email protected]>
; org-colview: Clarify compute update flag
* lisp/org-colview.el (org-columns-compute): Rename main-flag to
update-property-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 e53dd775d8..8611fbd787 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -1484,14 +1484,14 @@ properties drawers."
"Summarize the values of PROPERTY hierarchically.
Also update existing values for PROPERTY according to the first
column specification."
- (let ((main-flag t)
+ (let ((update-property-p t)
(upcase-prop (upcase property)))
(dolist (spec org-columns-current-fmt-compiled)
(pcase spec
(`(,(pred (equal upcase-prop)) . ,_)
- (org-columns--compute-spec spec main-flag)
+ (org-columns--compute-spec spec update-property-p)
;; Only the first summary can update the property value.
- (when main-flag (setq main-flag nil)))))))
+ (when update-property-p (setq update-property-p nil)))))))
(defun org-columns-compute-all ()
"Compute all columns that have operators defined."
