Mercurial > emacs
changeset 75496:4284dc72d780
(tit-process-header): Add
byte-compile-disable-print-circle:t at the head.
(miscdic-convert): Likewise.
(py-converter): Skip the header comments.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 29 Jan 2007 03:58:40 +0000 |
| parents | d241328c04c5 |
| children | a96117afa52c |
| files | lisp/international/titdic-cnv.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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")