diff options
| author | Lars Ingebrigtsen | 2022-08-01 14:28:05 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-08-01 14:28:05 +0200 |
| commit | 3bd9b6132f1122ea938ef65e62b2cd919e2dfe8a (patch) | |
| tree | 17ca37bc2578df8957bbcdb24fced52ad0857f3d | |
| parent | 7c8bd8802b4610bc9910038f73896e7f4268dc4e (diff) | |
| download | emacs-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.el | 7 |
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 |