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 /lisp/international/titdic-cnv.el | |
| 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 'lisp/international/titdic-cnv.el')
| -rw-r--r-- | lisp/international/titdic-cnv.el | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index bdb77ca7026..2a91e7cb5ec 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -62,7 +62,7 @@ ;;; Code: (require 'quail) -(require 'generate-file) +(require 'generate-lisp-file) ;; List of values of key "ENCODE:" and the corresponding Emacs ;; coding-system and language environment name. @@ -270,12 +270,10 @@ SPC, 6, 3, 4, or 7 specifying a tone (SPC:陰平, 6:陽平, 3:上聲, 4:去聲, (tit-moveleft ",<") (tit-keyprompt nil)) - (generate-file-heading filename :code nil) + (generate-lisp-file-heading filename 'titdic-convert :code nil) (princ ";; Quail package `") (princ package) (princ "\n") - (princ (substitute-command-keys - ";; Generated by the `titdic-convert' function.\n")) (princ ";;\tOriginal TIT dictionary file: ") (princ (file-name-nondirectory filename)) (princ "\n\n") @@ -521,7 +519,7 @@ the generated Quail package is saved." ;; Process the body part (tit-process-body) - (generate-file-trailer + (generate-lisp-file-trailer filename :inhibit-provide t :compile t :coding nil)))))) ;;;###autoload @@ -1132,10 +1130,8 @@ the generated Quail package is saved." ;; Explicitly set eol format to `unix'. (setq coding-system-for-write 'utf-8-unix) (with-temp-file (expand-file-name quailfile dirname) - (generate-file-heading quailfile) + (generate-lisp-file-heading quailfile 'miscdic-convert) (insert (format-message ";; Quail package `%s'\n" name)) - (insert (format-message - ";; Generated by the `miscdic-convert' function.\n")) (insert ";; Source dictionary file: " dicfile "\n") (insert ";; Copyright notice of the source file\n") (insert ";;------------------------------------------------------\n") @@ -1157,7 +1153,7 @@ the generated Quail package is saved." (let ((dicbuf (current-buffer))) (with-current-buffer dstbuf (funcall converter dicbuf))))) - (generate-file-trailer + (generate-lisp-file-trailer quailfile :inhibit-provide t :compile t :coding nil))) (setq tail (cdr tail))))) |