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

1 files changed, 3 insertions, 2 deletions

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