# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1170043120 0
# Node ID 4284dc72d7806054ef3b4a32a7a5dae65aee0dfb
# Parent  d241328c04c58965322e27bdbb835a1b7be6e28b
(tit-process-header): Add
byte-compile-disable-print-circle:t at the head.
(miscdic-convert): Likewise.
(py-converter): Skip the header comments.

diff -r d241328c04c5 -r 4284dc72d780 lisp/international/titdic-cnv.el
--- a/lisp/international/titdic-cnv.el	Mon Jan 29 02:52:01 2007 +0000
+++ b/lisp/international/titdic-cnv.el	Mon Jan 29 03:58:40 2007 +0000
@@ -271,7 +271,9 @@
 	(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 @@
   (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 @@
 	(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")