Computed dates in tables appear as inactive time stamps
* lisp/org-table.el (org-table-eval-formula): Replace active time stamps, as produced by Calc package, with inactive ones. Reported-by: "Doherty, Daniel" <ded@ddoherty.net> <http://permalink.gmane.org/gmane.emacs.orgmode/111458>
This commit is contained in:
parent
1ac8e29605
commit
a2950b00c1
|
@ -191,6 +191,10 @@ It is the reciprocal of ~org-list-to-lisp~, which see.
|
||||||
|
|
||||||
Call ~org-agenda-set-restriction-lock~ from the agenda.
|
Call ~org-agenda-set-restriction-lock~ from the agenda.
|
||||||
|
|
||||||
|
** Miscellaneous
|
||||||
|
|
||||||
|
*** Computed dates in tables appear as inactive time stamps
|
||||||
|
|
||||||
* Version 9.0
|
* Version 9.0
|
||||||
|
|
||||||
** Incompatible changes
|
** Incompatible changes
|
||||||
|
|
|
@ -2910,7 +2910,12 @@ $1-> %s\n" orig formula form0 form))
|
||||||
(when (consp ev) (setq fmt nil ev "#ERROR"))
|
(when (consp ev) (setq fmt nil ev "#ERROR"))
|
||||||
(org-table-justify-field-maybe
|
(org-table-justify-field-maybe
|
||||||
(format org-table-formula-field-format
|
(format org-table-formula-field-format
|
||||||
(if fmt (format fmt (string-to-number ev)) ev)))
|
(if fmt (format fmt (string-to-number ev))
|
||||||
|
;; Replace any active time stamp in the result with
|
||||||
|
;; an inactive one. Dates in tables are likely
|
||||||
|
;; piece of regular data, not meant to appear in
|
||||||
|
;; the agenda.
|
||||||
|
(replace-regexp-in-string org-ts-regexp "[\\1]" ev))))
|
||||||
(if (and down (> ndown 0) (looking-at ".*\n[ \t]*|[^-]"))
|
(if (and down (> ndown 0) (looking-at ".*\n[ \t]*|[^-]"))
|
||||||
(call-interactively 'org-return)
|
(call-interactively 'org-return)
|
||||||
(setq ndown 0)))
|
(setq ndown 0)))
|
||||||
|
|
Loading…
Reference in New Issue