summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2016-02-23 11:15:48 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-02-23 14:07:36 +0100
commit0de85fca9e40958610aa657153eda9ad9fcab606 (patch)
tree7206a16eceb2a9416f2ccbc36e56b8fa1cd14a30
parentd7fbad1a8144342fe5b819dba2241d7226b15b51 (diff)
downloadorg-mode-0de85fca9e40958610aa657153eda9ad9fcab606.tar.gz
org-colview: Remove `org-computed' property
* lisp/org-colview.el (org-columns-check-computed): Check if current column contains an operator instead of looking for an `org-computed' text property. (org-columns--compute-spec): Do not apply `org-computed' text property.
-rw-r--r--lisp/org-colview.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index cbff67a..766eb00 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -504,12 +504,12 @@ for the duration of the command.")
"Modification not yet reflected in Agenda buffer, use `r' to refresh")))
(defun org-columns-check-computed ()
- "Check if this column value is computed.
-If yes, throw an error indicating that changing it does not make sense."
- (let ((val (get-char-property (point) 'org-columns-value)))
- (when (and (stringp val)
- (get-char-property 0 'org-computed val))
- (error "This value is computed from the entry's children"))))
+ "Throw an error if current column value is computed."
+ (let ((spec (nth (current-column) org-columns-current-fmt-compiled)))
+ (and
+ (nth 3 spec)
+ (assoc spec (get-text-property (line-beginning-position) 'org-summaries))
+ (error "This value is computed from the entry's children"))))
(defun org-columns-todo (&optional _arg)
"Change the TODO state during column view."