Mercurial > emacs

changeset 78884:386417f6a905

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ses-calculate-cell): Don't evaluate unsafe formulae.
author Glenn Morris <rgm@gnu.org>
date Sun, 23 Sep 2007 01:07:23 +0000
parents 92406b654dcb
children 30c6b45091fa
files lisp/ses.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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