aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2022-08-01 14:28:05 +0200
committerLars Ingebrigtsen2022-08-01 14:28:05 +0200
commit3bd9b6132f1122ea938ef65e62b2cd919e2dfe8a (patch)
tree17ca37bc2578df8957bbcdb24fced52ad0857f3d
parent7c8bd8802b4610bc9910038f73896e7f4268dc4e (diff)
downloademacs-3bd9b6132f1122ea938ef65e62b2cd919e2dfe8a.tar.gz
emacs-3bd9b6132f1122ea938ef65e62b2cd919e2dfe8a.zip
Fix loaddefs quirk w.r.t. pinyin-convert
* lisp/international/titdic-cnv.el (pinyin-convert): Use `generate-lisp-file' for the file. This avoids having it scanned by loaddefs-gen, which will trigger re-compilation of Emacs since pinyin.el is generated after Emacs is built.
-rw-r--r--lisp/international/titdic-cnv.el7
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index 2a91e7cb5ec..080045e7520 100644
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -1191,10 +1191,7 @@ The library is named pinyin.el, and contains the constant
1191 (dst-file (cadr command-line-args-left)) 1191 (dst-file (cadr command-line-args-left))
1192 (coding-system-for-write 'utf-8-unix)) 1192 (coding-system-for-write 'utf-8-unix))
1193 (with-temp-file dst-file 1193 (with-temp-file dst-file
1194 (insert ";;; " (file-name-nondirectory dst-file) 1194 (generate-lisp-file-heading dst-file 'pinyin-convert)
1195 " -*- lexical-binding:t -*-
1196;; This file is automatically generated from pinyin.map, by the
1197;; function pinyin-convert.\n\n")
1198 (insert "(defconst pinyin-character-map\n'(") 1195 (insert "(defconst pinyin-character-map\n'(")
1199 (let ((pos (point))) 1196 (let ((pos (point)))
1200 (insert-file-contents src-file) 1197 (insert-file-contents src-file)
@@ -1214,7 +1211,7 @@ The library is named pinyin.el, and contains the constant
1214 (forward-line 1))) 1211 (forward-line 1)))
1215 (insert ")\n\"An alist holding correspondences between pinyin syllables\ 1212 (insert ")\n\"An alist holding correspondences between pinyin syllables\
1216 and\nChinese characters.\")\n\n") 1213 and\nChinese characters.\")\n\n")
1217 (insert "(provide 'pinyin)\n")) 1214 (generate-lisp-file-trailer dst-file :compile t))
1218 (kill-emacs 0))) 1215 (kill-emacs 0)))
1219 1216
1220;;; titdic-cnv.el ends here 1217;;; titdic-cnv.el ends here