From: Glenn Morris <rgm@gnu.org>
Date: Sun, 23 Sep 2007 01:08:25 +0000 (+0000)
Subject: (ses-calculate-cell): Don't evaluate unsafe formulae.
X-Git-Tag: emacs-pretest-23.0.90~10722
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66ba97ee97808cfd088290e1a173e0c93459bf9f;p=emacs.git

(ses-calculate-cell): Don't evaluate unsafe formulae.
---

diff --git a/lisp/ses.el b/lisp/ses.el
index e19b177ef42..3f904fde0d2 100644
--- a/lisp/ses.el
+++ b/lisp/ses.el
@@ -628,8 +628,9 @@ the old and FORCE is nil."
     (let ((oldval  (ses-cell-value   cell))
 	  (formula (ses-cell-formula cell))
 	  newval)
-      (if (eq (car-safe formula) 'ses-safe-formula)
-	  (ses-set-cell row col 'formula (ses-safe-formula (cadr formula))))
+      (when (eq (car-safe formula) 'ses-safe-formula)
+	(setq formula (ses-safe-formula (cadr formula)))
+	(ses-set-cell row col 'formula formula))
       (condition-case sig
 	  (setq newval (eval formula))
 	(error