[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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;###autoload
(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)
package))
+;;;###autoload
(defmacro defpackage (package &rest options)
"Defines a new package called PACKAGE. Each of OPTIONS should be one of the
following:
@@ -875,11 +877,13 @@ Value is t."
',shadows ',shadowing-imports ',(if use-p use :default)
',imports ',interns ',exports ',doc))))
+;;;###autoload
(defun pkg--%in-package (name)
(let ((package (or (find-package name)
(error "The package named '%s' doesn't exist." name))))
(setf *package* package)))
+;;;###autoload
(defmacro in-package (package)
`(pkg--%in-package ',(pkg--stringify-name package "package")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- scratch/pkg f2db6b55782: Add some autoload cookies,
Gerd Moellmann <=