[Emacs-diffs] Changes to emacs/lisp/international/titdic-cnv.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   07/01/29 03:58:40

Index: titdic-cnv.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/titdic-cnv.el,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -b -r1.47 -r1.48
--- titdic-cnv.el       21 Jan 2007 02:56:40 -0000      1.47
+++ titdic-cnv.el       29 Jan 2007 03:58:40 -0000      1.48
@@ -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")