浏览代码

Revert "Work around calc-eval regression"

This reverts commit 10e239f434e63ce5e0b4b242911357536dad98fe.
Carsten Dominik 12 年之前
父节点
当前提交
21fead7888
共有 1 个文件被更改,包括 1 次插入4 次删除
  1. 1 4
      lisp/org-table.el

+ 1 - 4
lisp/org-table.el

@@ -2701,6 +2701,7 @@ not overwrite the stored one."
 			(org-table-make-reference
 			 x keep-empty numbers lispp))
 		      t t form)))
+
 	(if lispp
 	    (setq ev (condition-case nil
 			 (eval (eval (read form)))
@@ -2711,10 +2712,6 @@ not overwrite the stored one."
 				   duration-output-format) ev))
 	  (or (fboundp 'calc-eval)
 	      (user-error "Calc does not seem to be installed, and is needed to evaluate the formula"))
-	  (or (get-buffer "*Calculator*")
-	      (progn
-		(require 'calc)
-		(save-window-excursion (calc))))
 	  ;; Use <...> time-stamps so that Calc can handle them
 	  (setq form (replace-regexp-in-string org-ts-regexp3 "<\\1>" form))
 	  ;; I18n-ize local time-stamps by setting (system-time-locale "C")