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

[gnu-emacs] / lisp / ses.el

diff --git a/lisp/ses.el b/lisp/ses.el
index e19b177ef421e5f7bf7777d8805a178504e004ed..3f904fde0d21150c2230193257247ccf781ee947 100644 (file)
--- 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