From 1ccf494d4175f8c56ef95a0661249f42337fae77 Mon Sep 17 00:00:00 2001 From: Daanturo Date: Wed, 30 Nov 2022 16:03:59 +0700 Subject: [PATCH] Inhibit compilation for some quail packages generators --- lisp/international/ja-dic-cnv.el | 3 ++- lisp/international/titdic-cnv.el | 6 +++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/international/ja-dic-cnv.el b/lisp/international/ja-dic-cnv.el index ec68d8c804..df70959b19 100644 --- a/lisp/international/ja-dic-cnv.el +++ b/lisp/international/ja-dic-cnv.el @@ -396,7 +396,8 @@ skkdic-convert ;; Postfix (with-current-buffer buf (goto-char (point-max)) - (generate-lisp-file-trailer ja-dic-filename :compile t))) + (generate-lisp-file-trailer + ja-dic-filename :compile t :inhibit-native-compile t))) ;; Save the working buffer. (set-buffer buf) diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index b942f5fabc..8996214dcb 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -527,7 +527,7 @@ titdic-convert ;; Process the body part (tit-process-body) (generate-lisp-file-trailer - filename :inhibit-provide t :compile t :coding nil)))))) + filename :inhibit-provide t :compile nil :coding nil)))))) ;;;###autoload (defun batch-titdic-convert (&optional force) @@ -1161,7 +1161,7 @@ miscdic-convert (with-current-buffer dstbuf (funcall converter dicbuf))))) (generate-lisp-file-trailer - quailfile :inhibit-provide t :compile t :coding nil))) + quailfile :inhibit-provide t :compile nil :coding nil))) (setq tail (cdr tail))))) (defun batch-miscdic-convert () @@ -1218,7 +1218,7 @@ pinyin-convert (forward-line 1))) (insert ")\n\"An alist holding correspondences between pinyin syllables\ and\nChinese characters.\")\n\n") - (generate-lisp-file-trailer dst-file :compile t)) + (generate-lisp-file-trailer dst-file :compile nil)) (kill-emacs 0))) ;;; titdic-cnv.el ends here -- 2.38.1