From 807f08bfb99f911a5787d6fc15c3afdb4973034e Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 5 Sep 2023 17:19:19 +0200 Subject: [PATCH] Fix pkg.el functions * lisp/emacs-lisp/pkg.el (pkg--internal-symbols): Fixed. (pkg--external-symbols): Fixed. --- lisp/emacs-lisp/pkg.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/lisp/emacs-lisp/pkg.el b/lisp/emacs-lisp/pkg.el index f7c5bd62279..0a13de9b117 100644 --- a/lisp/emacs-lisp/pkg.el +++ b/lisp/emacs-lisp/pkg.el @@ -261,16 +261,18 @@ normally, or else if an explcit return occurs the value it transfers." ,result-form)))) (defun pkg--internal-symbols (package) - (let (syms) - (do-symbols (sym (pkg--package-or-lose package)) - (when (eq (symbol-package sym) *emacs-user-package*) + (let (syms + (package (pkg--package-or-lose package))) + (do-symbols (sym package) + (when (eq (symbol-package sym) package) (push sym syms))) syms)) (defun pkg--external-symbols (package) - (let (syms) - (do-external-symbols (sym (pkg--package-or-lose package)) - (when (eq (symbol-package sym) *emacs-user-package*) + (let (syms + (package (pkg--package-or-lose package))) + (do-external-symbols (sym package) + (when (eq (symbol-package sym) package) (push sym syms))) syms)) -- 2.39.2