From 58c2e4d7093f71c6a9b2b45eb0f777593f3b23aa Mon Sep 17 00:00:00 2001 From: =?utf8?q?Gerd=20M=C3=B6llmann?= Date: Sat, 12 Aug 2023 16:21:02 +0200 Subject: [PATCH] Re-implement find-all-symbols --- lisp/emacs-lisp/pkg.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/emacs-lisp/pkg.el b/lisp/emacs-lisp/pkg.el index 5083a056585..6f460482ba4 100644 --- a/lisp/emacs-lisp/pkg.el +++ b/lisp/emacs-lisp/pkg.el @@ -726,12 +726,12 @@ Value is t." (defun find-all-symbols (name) "Return a list of all symbols in the system having the specified name." (let ((name (pkg--stringify-name name "symbol name")) - (result ())) - (maphash #'(lambda (_package-name package) - (cl-multiple-value-bind (sym _status) (find-symbol name package) - (when sym - (cl-pushnew sym result)))) - *package-registry*) + (result ()) + (all-packages (cl-remove-duplicates (hash-table-values *package-registry*)))) + (dolist (package all-packages) + (cl-multiple-value-bind (sym _status) (find-symbol name package) + (when sym + (cl-pushnew sym result)))) result)) -- 2.39.2