Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 22:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Glenn Morris 2007-09-23 01:07:23 +00:00
parent 04efb39751
commit ec894ac2ea
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ses.el
View file

@ -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