[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))
(mapcar
(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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- scratch/pkg 96147b628ea: More read-from-string,
Gerd Moellmann <=