diff --git a/lisp/org-table.el b/lisp/org-table.el index fa7ffd200..3eb63b6e5 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -2604,6 +2604,8 @@ not overwrite the stored one." duration-output-format) ev)) (or (fboundp 'calc-eval) (error "Calc does not seem to be installed, and is needed to evaluate the formula")) + ;; "Inactivate" time-stamps so that Calc can handle them + (setq form (replace-regexp-in-string org-ts-regexp3 "<\\1>" form)) (setq ev (if (and duration (string-match "^[0-9]+:[0-9]+\\(?::[0-9]+\\)?$" form)) form (calc-eval (cons form org-tbl-calc-modes) (if numbers 'num)))