mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

Make finder/cus-dep scraping use generate-lisp-file functions

Browse Source 
* lisp/finder.el (finder-compile-keywords):
* lisp/cus-dep.el (custom-make-dependencies): Use
generate-lisp-file functions directly instead of piggy-backing on
the autoload.el functions.  (This is part of making autoload.el obsolete.)
This commit is contained in:
Lars Ingebrigtsen 2022-06-05 20:17:30 +02:00
parent 251e7c3018
commit 3406e4064f
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/cus-dep.el
View File

@ -156,9 +156,9 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
(set-buffer (find-file-noselect generated-custom-dependencies-file))
(setq buffer-undo-list t)
(erase-buffer)
(insert (autoload-rubric generated-custom-dependencies-file
"custom dependencies" t))
(search-backward " ")
(generate-lisp-file-heading
generated-custom-dependencies-file 'custom-make-dependencies
:title "custom dependencies")
(let (alist)
(mapatoms (lambda (symbol)
(let ((members (get symbol 'custom-group))
@ -241,6 +241,7 @@ This is an alist whose members have as car a version string, and as
elements the files that have variables or faces that contain that
version. These files should be loaded before showing the customization
buffer that `customize-changed' generates.\")\n\n"))
(generate-lisp-file-trailer generated-custom-dependencies-file)
(save-buffer)
(byte-compile-info
(format "Generating %s...done" generated-custom-dependencies-file) t))

9
lisp/finder.el
View File

@ -127,8 +127,6 @@ Keywords and package names both should be symbols.")
cus-load\\|finder-inf\\|esh-groups\\|subdirs\\|leim-list\\)\\.el$\\)"
"Regexp matching file names not to scan for keywords.")
(autoload 'autoload-rubric "autoload")
(defconst finder--builtins-descriptions
;; I have no idea whether these are supposed to be capitalized
;; and/or end in a full-stop. Existing file headers are inconsistent,
@ -264,9 +262,9 @@ from; the default is `load-path'."
(find-file-noselect generated-finder-keywords-file)
(setq buffer-undo-list t)
(erase-buffer)
(insert (autoload-rubric generated-finder-keywords-file
"keyword-to-package mapping" t))
(search-backward " ")
(generate-lisp-file-heading
generated-finder-keywords-file 'finder-compile-keywords
:title "keyword-to-package mapping")
;; FIXME: Now that we have package--builtin-versions, package--builtins is
;; only needed to get the list of unversioned packages and to get the
;; summary description of each package.
@ -280,6 +278,7 @@ from; the default is `load-path'."
(insert "(setq finder-keywords-hash\n ")
(prin1 finder-keywords-hash (current-buffer))
(insert ")\n")
(generate-lisp-file-trailer generated-finder-keywords-file)
(basic-save-buffer)))
(defun finder-compile-keywords-make-dist ()