diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index d0dd27e79..e93986ba7 100644 --- a/etc/ORG-NEWS +++ b/etc/ORG-NEWS @@ -191,6 +191,10 @@ It is the reciprocal of ~org-list-to-lisp~, which see. Call ~org-agenda-set-restriction-lock~ from the agenda. +** Miscellaneous + +*** Computed dates in tables appear as inactive time stamps + * Version 9.0 ** Incompatible changes diff --git a/lisp/org-table.el b/lisp/org-table.el index d3c4d7143..78ced8754 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -2910,7 +2910,12 @@ $1-> %s\n" orig formula form0 form)) (when (consp ev) (setq fmt nil ev "#ERROR")) (org-table-justify-field-maybe (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]*|[^-]")) (call-interactively 'org-return) (setq ndown 0)))