# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1190509643 0
# Node ID 386417f6a905997f0493b1d13840111a488c0e97
# Parent  92406b654dcb6512e93f775616ae3d9fac66cfe4
(ses-calculate-cell): Don't evaluate unsafe formulae.

diff -r 92406b654dcb -r 386417f6a905 lisp/ses.el
--- a/lisp/ses.el	Sun Sep 23 01:06:30 2007 +0000
+++ b/lisp/ses.el	Sun Sep 23 01:07:23 2007 +0000
@@ -628,8 +628,9 @@
     (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