From 21160f612eea0ca3384bfe518544b1d8234628f4 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Vincent=20Bela=C3=AFche?= Date: Fri, 9 May 2025 14:30:50 +0200 Subject: [PATCH] ix bugs when a SES buffer has named cells, and another don't. * 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'. (cherry picked from commit 2102554a486e457cf020a03b72276e532afc98ea) --- lisp/ses.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/ses.el b/lisp/ses.el index d23cefc53f4..aa3eb1bad40 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -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"))) ;;---------------------------------------------------------------------------- -- 2.39.5