diff options
| author | Miles Bader <miles@gnu.org> | 2007-01-30 22:22:43 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-01-30 22:22:43 +0000 |
| commit | bb5b9e9dbe671b0525692acf1337efa271b33fb6 (patch) | |
| tree | 810c31e2c5f1bc8e79df0cc4b121a25a9d4b8642 /lisp/international/titdic-cnv.el | |
| parent | f3df78db7218a084cbd58dc9a3cb5b9909b02d4d (diff) | |
| parent | 41e49ce63ee2f9945ff99a19b00752ea887ef506 (diff) | |
| download | emacs-bb5b9e9dbe671b0525692acf1337efa271b33fb6.tar.gz | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 615-621)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 197-199)
- Merge from emacs--devo--0
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-166
Diffstat (limited to 'lisp/international/titdic-cnv.el')
| -rw-r--r-- | lisp/international/titdic-cnv.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index 4f982d14039..b97a781ff8e 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -275,7 +275,8 @@ SPC, 6, 3, 4, or 7 specifing a tone (SPC:$(0?v(N(B, 6:$(0Dm(N(B, 3:$(0&9Vy (princ ";; Quail package `") (princ package) - (princ (format "' -*- coding:%s; -*-\n" coding-system-for-write)) + (princ (format "' -*- coding:%s; " coding-system-for-write)) + (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 +909,9 @@ method `chinese-tonepy' with which you must specify tones by digits (let ((pos (point))) (insert-buffer-substring dicbuf) (goto-char pos) + (re-search-forward "^[a-z]") + (beginning-of-line) + (delete-region pos (point)) (while (not (eobp)) (insert "(\"") (skip-chars-forward "a-z") @@ -1141,8 +1145,8 @@ the generated Quail package is saved." (message "Converting %s to %s..." dicfile quailfile) (setq coding-system-for-write coding) (with-temp-file (expand-file-name quailfile dirname) - (insert (format ";; Quail package `%s' -*- coding:%s; -*-\n" - name coding)) + (insert (format ";; Quail package `%s' -*- coding:%s; " name coding)) + (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") |