[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/titdic-cnv.el,v
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/titdic-cnv.el,v |
Date: |
Mon, 29 Jan 2007 03:58:40 +0000 |
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")