|
@@ -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."
|