(tit-process-header): Add

byte-compile-disable-print-circle:t at the head.
(miscdic-convert): Likewise.
(py-converter): Skip the header comments.

diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index 9577ccf50ad60f4b94e90a316f037745ee94b81c..adf5e080b0458ccdd36a6957991443d9d8d8330b 100644 (file)
--- 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:\e$(0?v(N\e(B, 6:\e$(0Dm(N\e(B, 3:\e$(0&9Vy\e
        (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")