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

Bind dynamically row col on calling ses-after-entry-functions.

Browse source
This commit is contained in:
Vincent Belaïche 2025-01-05 16:15:03 +01:00 committed by Vincent Belaïche
parent 8e936439e9
commit 2aa018afeb
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/ses.el
View file

@ -2596,8 +2596,9 @@ Return nil if cell formula was unsafe and user declined confirmation."
curval)))))))
(when (ses-edit-cell row col newval)
(ses-command-hook) ; Update cell widths before movement.
(dolist (x ses-after-entry-functions)
(funcall x 1))))
(cl-progv '(row col) (list row col) ; cl-progv to have dynamic binding
(dolist (x ses-after-entry-functions)
(funcall x 1)))))
(defun ses-read-symbol (row col symb)
"Self-insert for a symbol as a cell formula.
@ -2616,8 +2617,9 @@ spreadsheet is available for completions."
(list 'quote (intern newval))))))
(when (ses-edit-cell row col symb)
(ses-command-hook) ; Update cell widths before movement.
(dolist (x ses-after-entry-functions)
(funcall x 1))))
(cl-progv '(row col) (list row col) ; cl-progv to have dynamic binding
(dolist (x ses-after-entry-functions)
(funcall x 1)))))
(defun ses-clear-cell-forward (count)
"Delete formula and printer for current cell and then move to next cell.