summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2021-04-09 23:41:32 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2021-04-09 23:41:32 +0200
commit5469bc4e552784c2d4f1b32984b95c371fbd4425 (patch)
tree368752b401557cbb288e09f04d792c40de0b756d
parent71169144275f9c420c0b613429410af9e59f2ba9 (diff)
downloadorg-mode-5469bc4e552784c2d4f1b32984b95c371fbd4425.tar.gz
colview: Ignore operators associated to special properties
* lisp/org-colview.el (org-columns--compute-spec): Ignore operator associated to a special properties. This is a followup to e1b8d1d2b4ef46e0c4ef591536a77eeeed45d998.
-rw-r--r--lisp/org-colview.el13
1 files changed, 6 insertions, 7 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index d80fa8e..517bcdf 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -1165,14 +1165,13 @@ properties drawers."
(last-level lmax)
(property (car spec))
(printf (nth 4 spec))
- (operator (nth 3 spec))
+ ;; Special properties cannot be collected nor summarized, as
+ ;; they have their own way to be computed. Therefore, ignore
+ ;; any operator attached to them.
+ (operator (and (not (member property org-special-properties))
+ (nth 3 spec)))
(collect (and operator (org-columns--collect operator)))
- (summarize (and operator (org-columns--summarize operator)))
- ;; Special properties are not set in a property drawer, and
- ;; therefore should not be updated.
- (update
- (and update
- (not (member property org-special-properties)))))
+ (summarize (and operator (org-columns--summarize operator))))
(org-with-wide-buffer
;; Find the region to compute.
(goto-char org-columns-top-level-marker)