[Emacs-diffs] Changes to emacs/lisp/ses.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/09/23 01:08:25

Index: ses.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ses.el,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -b -r1.33 -r1.34
--- ses.el      26 Jul 2007 05:26:33 -0000      1.33
+++ ses.el      23 Sep 2007 01:08:25 -0000      1.34
@@ -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