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

ix bugs when a SES buffer has named cells, and another don't.

Browse source 
* lisp/ses.el (ses-list-named-cells): Give a message when the list is empty.
(ses--unbind-cell-name): Do not throw error in a SES buffer w/o
any named cell for gethash from 'ses--named-cell-hashmap' being
'nil'.
This commit is contained in:
Vincent Belaïche 2025-05-09 14:30:50 +02:00
parent b87608c9c7
commit 2102554a48
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ses.el
View file

@ -504,7 +504,7 @@ This can alter PLIST."
(setq ses--ses-buffer-list (delq buf ses--ses-buffer-list)))
(t
(with-current-buffer buf
(when (gethash name ses--named-cell-hashmap)
(when (and ses--named-cell-hashmap (gethash name ses--named-cell-hashmap))
(setq used-elsewhere t
buffer-list nil))))))
(unless used-elsewhere
@ -3452,7 +3452,7 @@ while in the SES buffer."
((minibufferp) ses--completion-table)
((derived-mode-p 'help-mode) nil)
(t (user-error "Not in a SES buffer")))))
(when named-cell-hashmap
(if named-cell-hashmap
(let ((ses--list-orig-buffer (or ses--list-orig-buffer (current-buffer))))
(help-setup-xref
(list (lambda (named-cell-hashmap buffer)
@ -3474,7 +3474,8 @@ while in the SES buffer."
(princ "\n"))
named-cell-hashmap))
(with-current-buffer standard-output
(buffer-string)))))))
(buffer-string)))))
(message "No named cell found")))
;;----------------------------------------------------------------------------