From 66ba97ee97808cfd088290e1a173e0c93459bf9f Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 23 Sep 2007 01:08:25 +0000 Subject: [PATCH] (ses-calculate-cell): Don't evaluate unsafe formulae. --- lisp/ses.el | 5 +++-- 1 file 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 -- 2.39.2