diff options
Diffstat (limited to 'lisp/ses.el')
| -rw-r--r-- | lisp/ses.el | 5 |
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 |