Browse Source

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.
Bastien Guerry 12 years ago
parent
commit
b1f498487a
1 changed files with 2 additions and 0 deletions
  1. 2 0
      lisp/org-table.el

+ 2 - 0
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)))