emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 3bd9b6132f: Fix loaddefs quirk w.r.t. pinyin-convert


From: Lars Ingebrigtsen
Subject: master 3bd9b6132f: Fix loaddefs quirk w.r.t. pinyin-convert
Date: Mon, 1 Aug 2022 08:34:20 -0400 (EDT)

branch: master
commit 3bd9b6132f1122ea938ef65e62b2cd919e2dfe8a
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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.
---
 lisp/international/titdic-cnv.el | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index 2a91e7cb5e..080045e752 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
         (dst-file (cadr command-line-args-left))
         (coding-system-for-write 'utf-8-unix))
     (with-temp-file dst-file
-      (insert ";;; " (file-name-nondirectory dst-file)
-              "   -*- lexical-binding:t -*-
-;; This file is automatically generated from pinyin.map, by the
-;; function pinyin-convert.\n\n")
+      (generate-lisp-file-heading dst-file 'pinyin-convert)
       (insert "(defconst pinyin-character-map\n'(")
       (let ((pos (point)))
         (insert-file-contents src-file)
@@ -1214,7 +1211,7 @@ The library is named pinyin.el, and contains the constant
           (forward-line 1)))
       (insert ")\n\"An alist holding correspondences between pinyin syllables\
  and\nChinese characters.\")\n\n")
-      (insert "(provide 'pinyin)\n"))
+      (generate-lisp-file-trailer dst-file :compile t))
     (kill-emacs 0)))
 
 ;;; titdic-cnv.el ends here



reply via email to

[Prev in Thread] Current Thread [Next in Thread]