diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-05 17:48:29 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-05 17:48:39 +0200 |
commit | 98d454627ca2e9a6cdb906895b044e7221db3f2f (patch) | |
tree | f264b97e754941b55a9bfa6b65c330e46fecfe42 /admin | |
parent | e8a941cf705f26cf9571e1eba4d23bbc63a056e4 (diff) | |
download | emacs-98d454627ca2e9a6cdb906895b044e7221db3f2f.tar.gz |
Rename generate-file to generate-lisp-file
* lisp/url/url-cookie.el (url-cookie-write-file):
* lisp/international/titdic-cnv.el (tit-process-header)
(miscdic-convert):
* lisp/international/ja-dic-cnv.el (skkdic-convert):
* lisp/international/emoji.el (emoji--generate-file):
* lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--rubric):
* admin/unidata/unidata-gen.el (unidata-gen-file)
(unidata-gen-charprop): Adjust callers.
* lisp/emacs-lisp/generate-lisp-file.el: Renamed from
generate-file.el. Also rename some keyword parameters and require
a generator function.
Diffstat (limited to 'admin')
-rw-r--r-- | admin/unidata/unidata-gen.el | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/admin/unidata/unidata-gen.el b/admin/unidata/unidata-gen.el index dc8c071999e..0a9fd5108ce 100644 --- a/admin/unidata/unidata-gen.el +++ b/admin/unidata/unidata-gen.el @@ -89,7 +89,7 @@ ;; PROPn: string representing the nth property value (eval-when-compile (require 'cl-lib)) -(require 'generate-file) +(require 'generate-lisp-file) (defvar unidata-list nil) @@ -1423,10 +1423,9 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)." (or elt (user-error "Unknown output file: %s" basename)) (or noninteractive (message "Generating %s..." file)) (with-temp-file file - (generate-file-heading - basename - :text (concat copyright " \ -Generated from Unicode data files by unidata-gen.el. \ + (generate-lisp-file-heading + basename 'unidata-gen-file + :commentary (concat copyright " \ The sources for this file are found in the admin/unidata/ directory in \ the Emacs sources. The Unicode data files are used under the \ Unicode Terms of Use, as contained in the file copyright.html in that \ @@ -1448,15 +1447,15 @@ same directory.")) (set-char-table-extra-slot table 3 describer)) (insert (format "(define-char-code-property '%S\n %S\n %S)\n" prop table docstring)))) - (generate-file-trailer basename :inhibit-provide t)))) + (generate-lisp-file-trailer basename :inhibit-provide t)))) (or noninteractive (message "Generating %s...done" file))) (defun unidata-gen-charprop (&optional charprop-file text) (or charprop-file (setq charprop-file (pop command-line-args-left))) (with-temp-file charprop-file - (generate-file-heading - charprop-file - :text "Automatically generated by unidata-gen.el. See the admin/unidata/ directory in the Emacs sources.") + (generate-lisp-file-heading + charprop-file 'unidata-gen-charprop + :commentary "See the admin/unidata/ directory in the Emacs sources.") (if text (insert text) (dolist (elt unidata-file-alist) @@ -1465,7 +1464,7 @@ same directory.")) (unidata-prop-prop proplist) (car elt) (unidata-prop-docstring proplist)))))) (or noninteractive (message "Writing %s..." charprop-file)) - (generate-file-trailer charprop-file))) + (generate-lisp-file-trailer charprop-file))) (defun unidata-gen-scripts (&optional file) ;; Running from Makefile. |