mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases 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 ed25af44d3
commit 6c2256f52e
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ses.el
View file

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