From: Gerd Moellmann <gerd.moellmann@gmail.com>
Date: Tue, 5 Sep 2023 15:19:19 +0000 (+0200)
Subject: Fix pkg.el functions
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=807f08bfb99f911a5787d6fc15c3afdb4973034e;p=emacs.git

Fix pkg.el functions

* lisp/emacs-lisp/pkg.el (pkg--internal-symbols): Fixed.
(pkg--external-symbols): Fixed.
---

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))