[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

scratch/pkg 96147b628ea: More read-from-string

From: Gerd Moellmann
Subject: scratch/pkg 96147b628ea: More read-from-string
Date: Mon, 11 Dec 2023 09:58:21 -0500 (EST)

branch: scratch/pkg
commit 96147b628ea5409cb6a7a328cc403c9bbcafbdf3
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>

    More read-from-string
    * lisp/simple.el (read-extended-command--affixation):
    Use read-from-string instead if intern-soft.
 lisp/simple.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index d982427fcb2..9fe068cb464 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2473,7 +2473,9 @@ or (if one of MODES is a minor mode), if it is switched 
on in BUFFER."
   (with-selected-window (or (minibuffer-selected-window) (selected-window))
      (lambda (command-name)
-       (let* ((fun (and (stringp command-name) (intern-soft command-name)))
+       (let* ((fun (and (stringp command-name)
+                       (let ((symbol-packages t))
+                         (car (read-from-string command-name)))))
               (binding (where-is-internal fun overriding-local-map t))
               (obsolete (get fun 'byte-obsolete-info))
               (alias (symbol-function fun))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]