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 f7c5bd62279de4d1034e1c781774a4756bbfbd04..0a13de9b117b5c94a045479354b16a6dde427cbc 100644 (file)
--- 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))