Autoload cookies for some commands in admin/*.el

These files are not included in Emacs distributions so this will
only affect those who, e.g., symlink these into ~/.emacs.d/user-lisp/.

* admin/admin.el:
* admin/authors.el: Autoload all commands.
* admin/gitmerge.el (gitmerge): Autoload.
This commit is contained in:
Sean Whitton 2026-09-05 13:05:12 +01:00
parent 7013cc3f13
commit bdf6d6c1b1
3 changed files with 10 additions and 0 deletions

View file

@ -35,6 +35,7 @@
(defun admin--read-version () (defun admin--read-version ()
(read-string "Version number: " emacs-version)) (read-string "Version number: " emacs-version))
;;;###autoload
(defun add-release-logs (root version &optional date) (defun add-release-logs (root version &optional date)
"Add \"Version VERSION released.\" change log entries in ROOT. "Add \"Version VERSION released.\" change log entries in ROOT.
Also update the etc/HISTORY file. Also update the etc/HISTORY file.
@ -102,6 +103,7 @@ Optional argument DATE is the release date, default today."
"\\bAuto-incrementing version code\\(?:.\\|\n\\)*\\([[:digit:]]\\{9\\}\\)$" "\\bAuto-incrementing version code\\(?:.\\|\n\\)*\\([[:digit:]]\\{9\\}\\)$"
"Regexp with which to detect the version code in AndroidManifest.xml.") "Regexp with which to detect the version code in AndroidManifest.xml.")
;;;###autoload
(defun set-version (root version) (defun set-version (root version)
"Set Emacs version to VERSION in relevant files under ROOT. "Set Emacs version to VERSION in relevant files under ROOT.
Root must be the root of an Emacs source tree." Root must be the root of an Emacs source tree."
@ -246,6 +248,7 @@ Non-Free Operating Systems\n" newshort)))
(message "Setting version numbers...done")) (message "Setting version numbers...done"))
;; Note this makes some assumptions about form of short copyright. ;; Note this makes some assumptions about form of short copyright.
;;;###autoload
(defun set-copyright (root copyright) (defun set-copyright (root copyright)
"Set Emacs short copyright to COPYRIGHT in relevant files under ROOT. "Set Emacs short copyright to COPYRIGHT in relevant files under ROOT.
Root must be the root of an Emacs source tree." Root must be the root of an Emacs source tree."
@ -300,6 +303,7 @@ ROOT should be the root of an Emacs source tree."
'("efaq-w32"))))) '("efaq-w32")))))
;; TODO report the progress ;; TODO report the progress
;;;###autoload
(defun make-manuals (root &optional type) (defun make-manuals (root &optional type)
"Generate the web manuals for the Emacs webpage. "Generate the web manuals for the Emacs webpage.
ROOT should be the root of an Emacs source tree. ROOT should be the root of an Emacs source tree.
@ -792,6 +796,7 @@ style=\"text-align:left\">")
(message "...created %s" tarfile))) (message "...created %s" tarfile)))
;; Does anyone actually use these tarfiles? ;; Does anyone actually use these tarfiles?
;;;###autoload
(defun make-manuals-dist (root &optional type) (defun make-manuals-dist (root &optional type)
"Make the standalone manual source tarfiles for the Emacs webpage. "Make the standalone manual source tarfiles for the Emacs webpage.
ROOT should be the root of an Emacs source tree. ROOT should be the root of an Emacs source tree.
@ -883,6 +888,7 @@ $Date: %s $
(defvar org-html-mathjax-template) (defvar org-html-mathjax-template)
(defvar htmlize-output-type) (defvar htmlize-output-type)
;;;###autoload
(defun make-news-html-file (root version) (defun make-news-html-file (root version)
"Convert the NEWS file into an HTML file." "Convert the NEWS file into an HTML file."
(interactive (let ((root (interactive (let ((root
@ -1117,6 +1123,7 @@ If optional argument OLD is non-nil, also scan for `defvar's."
;; to check the results of this look sensible. ;; to check the results of this look sensible.
;; TODO Check cus-start if something moved from C to Lisp. ;; TODO Check cus-start if something moved from C to Lisp.
;; TODO Handle renamed things with aliases to the old names. ;; TODO Handle renamed things with aliases to the old names.
;;;###autoload
(defun cusver-check (newdir olddir version) (defun cusver-check (newdir olddir version)
"Check that `defcustom's have :version tags where needed. "Check that `defcustom's have :version tags where needed.
NEWDIR is the current lisp/ directory, OLDDIR is that from the NEWDIR is the current lisp/ directory, OLDDIR is that from the
@ -1190,6 +1197,7 @@ changes (in a non-trivial way). This function does not check for that."
;; Reminder message for open release-blocking bugs. This requires the ;; Reminder message for open release-blocking bugs. This requires the
;; GNU ELPA package `debbugs'. ;; GNU ELPA package `debbugs'.
;;;###autoload
(defun reminder-for-release-blocking-bugs (version) (defun reminder-for-release-blocking-bugs (version)
"Submit a reminder message for release-blocking bugs of Emacs VERSION." "Submit a reminder message for release-blocking bugs of Emacs VERSION."
(interactive (interactive

View file

@ -2236,6 +2236,7 @@ and changed by AUTHOR."
(cons (list author wrote-list cowrote-list changed-list) (cons (list author wrote-list cowrote-list changed-list)
authors-author-list))))) authors-author-list)))))
;;;###autoload
(defun authors (root &optional nologupdate) (defun authors (root &optional nologupdate)
"Extract author information from change logs and Lisp source files. "Extract author information from change logs and Lisp source files.
ROOT is the root directory under which to find the files. ROOT is the root directory under which to find the files.

View file

@ -597,6 +597,7 @@ Branch FROM will be prepended to the list."
(setq-local truncate-lines t) (setq-local truncate-lines t)
(setq-local font-lock-defaults '(gitmerge-mode-font-lock-keywords))) (setq-local font-lock-defaults '(gitmerge-mode-font-lock-keywords)))
;;;###autoload
(defun gitmerge (from) (defun gitmerge (from)
"Merge from branch FROM into `default-directory'." "Merge from branch FROM into `default-directory'."
(interactive (interactive