mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-28 01:00:52 -07:00
Code Issues Projects Releases Wiki Activity

Correct ses-truncate-cell bug implied by setting ses.el in lexical binding: row and col had been erronously made unbound.

Browse source
This commit is contained in:
Vincent Belaïche 2014-07-21 19:53:38 +02:00
parent 780c294f37
commit da8b9ab0d8
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2014-07-21 Vincent Belaïche <vincentb1@users.sourceforge.net>
* ses.el (ses-truncate-cell): Use cl-progv instead of eval in
order to ensure that row and col are lexically bound inside the
evaluated sexp.
2014-07-21 Glenn Morris <rgm@gnu.org>
* progmodes/hideif.el (hide-ifdef-mode-submap):

6
lisp/ses.el
View file

@ -2252,8 +2252,10 @@ to are recalculated first."
(eq (ses-cell-value row (1+ col)) '*skip*))
;; This cell has spill-over. We'll momentarily pretend the following cell
;; has a `t' in it.
(eval `(let ((,(ses-cell-symbol row (1+ col)) t))
(ses-print-cell row col)))
(cl-progv
(list (ses-cell-symbol row (1+ col)))
'(t)
(ses-print-cell row col))
;; Now remove the *skip*. ses-print-cell is always nil here.
(ses-set-cell row (1+ col) 'value nil)
(1value (ses-print-cell row (1+ col))))))