diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-02-23 11:15:48 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-02-23 14:07:36 +0100 |
commit | 0de85fca9e40958610aa657153eda9ad9fcab606 (patch) | |
tree | 7206a16eceb2a9416f2ccbc36e56b8fa1cd14a30 | |
parent | d7fbad1a8144342fe5b819dba2241d7226b15b51 (diff) | |
download | org-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.el | 12 |
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." |