org-table.el: Convert time-stamps to inactive time-stamp so that Calc can handle them correctly

* org-table.el (org-table-eval-formula): Convert time-stamps
to inactive time-stamp so that Calc can handle them correctly.

Thanks to Daniel E. Doherty for reporting this.
This commit is contained in:
Bastien Guerry 2012-09-28 18:22:38 +02:00
parent ecdc4d14c8
commit b1f498487a
1 changed files with 2 additions and 0 deletions

View File

@ -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)))