[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

scratch/pkg f2db6b55782: Add some autoload cookies

From: Gerd Moellmann
Subject: scratch/pkg f2db6b55782: Add some autoload cookies
Date: Wed, 20 Dec 2023 04:47:19 -0500 (EST)

branch: scratch/pkg
commit f2db6b55782ec7239803e63c47e8d8bc6b5aa7f0
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>

    Add some autoload cookies
 lisp/emacs-lisp/pkg.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/emacs-lisp/pkg.el b/lisp/emacs-lisp/pkg.el
index 58596de43c8..9f84874f4e2 100644
--- a/lisp/emacs-lisp/pkg.el
+++ b/lisp/emacs-lisp/pkg.el
@@ -704,6 +704,7 @@ Value is t."
 ;;                            defpackage
 (defun pkg-defpackage (name nicknames local-nicknames
                             size shadows shadowing-imports
                            use imports interns exports _doc-string)
@@ -772,6 +773,7 @@ Value is t."
     ;;(setf (package-doc-string package) doc-string)
 (defmacro defpackage (package &rest options)
   "Defines a new package called PACKAGE.  Each of OPTIONS should be one of the
@@ -875,11 +877,13 @@ Value is t."
                       ',shadows ',shadowing-imports ',(if use-p use :default)
                       ',imports ',interns ',exports ',doc))))
 (defun pkg--%in-package (name)
   (let ((package (or (find-package name)
                      (error "The package named '%s' doesn't exist." name))))
     (setf *package* package)))
 (defmacro in-package (package)
   `(pkg--%in-package ',(pkg--stringify-name package "package")))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]