From 7d15a839d9b4f922aef7753c6dbac2777399443b Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 29 Jan 2007 03:58:40 +0000 Subject: [PATCH] (tit-process-header): Add byte-compile-disable-print-circle:t at the head. (miscdic-convert): Likewise. (py-converter): Skip the header comments. --- lisp/international/titdic-cnv.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index 9577ccf50ad..adf5e080b04 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -271,7 +271,9 @@ SPC, 6, 3, 4, or 7 specifing a tone (SPC:$(0?v(N(B, 6:$(0Dm(N(B, 3:$(0&9Vy (tit-keyprompt nil)) (princ ";; Quail package `") - (princ package) (princ "' -*- coding:iso-2022-7bit; -*-\n") + (princ package) + (princ "' -*- coding:iso-2022-7bit; ") + (princ "byte-compile-disable-print-circle:t; -*-\n") (princ ";; Generated by the command `titdic-convert'\n;;\tDate: ") (princ (current-time-string)) (princ "\n;;\tOriginal TIT dictionary file: ") @@ -908,6 +910,9 @@ method `chinese-tonepy' with which you must specify tones by digits (let ((pos (point))) (insert-buffer-substring dicbuf) (goto-char pos) + (search-forward "^[a-z]") + (beginning-of-line) + (delete-region pos (point)) (while (not (eobp)) (insert "(\"") (skip-chars-forward "a-z") @@ -1141,7 +1146,8 @@ the generated Quail package is saved." (message "Converting %s to %s..." dicfile quailfile) (with-temp-file (expand-file-name quailfile dirname) (set-buffer-file-coding-system 'iso-2022-7bit) - (insert ";; Quail package `" name "' -*- coding:iso-2022-7bit; -*-\n") + (insert ";; Quail package `" name "' -*- coding:iso-2022-7bit; ") + (insert "byte-compile-disable-print-circle:t; -*-\n"); (insert ";; Generated by the command `miscdic-convert'\n") (insert ";; Date: " (current-time-string) "\n") (insert ";; Source dictionary file: " dicfile "\n") -- 2.39.2