Mercurial > emacs
comparison lisp/international/titdic-cnv.el @ 37146:f7906041b879
(miscdic-convert): Fix a typo in the last change.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 02 Apr 2001 20:37:34 +0000 |
| parents | dafc644df705 |
| children | d74967dafcb7 |
comparison
equal
deleted
inserted
replaced
| 37145:e0b7a9135b1d | 37146:f7906041b879 |
|---|---|
| 998 (insert ";;------------------------------------------------------\n") | 998 (insert ";;------------------------------------------------------\n") |
| 999 (insert "\n") | 999 (insert "\n") |
| 1000 (insert ";;; Code:\n\n") | 1000 (insert ";;; Code:\n\n") |
| 1001 (insert "(require 'quail)\n") | 1001 (insert "(require 'quail)\n") |
| 1002 (insert "(quail-define-package \"" name "\" \"" | 1002 (insert "(quail-define-package \"" name "\" \"" |
| 1003 (if (eq coding 'big5) "Chiense-BIG5" "Chienge-CNS") | 1003 (if (eq coding 'big5) "Chinese-BIG5" "Chinese-CNS") |
| 1004 "\" \"" title "\" t\n") | 1004 "\" \"" title "\" t\n") |
| 1005 (let* ((coding-system-for-read coding) | 1005 (let* ((coding-system-for-read coding) |
| 1006 (dicbuf (find-file-noselect filename))) | 1006 (dicbuf (find-file-noselect filename))) |
| 1007 (funcall converter dicbuf name title) | 1007 (funcall converter dicbuf name title) |
| 1008 (kill-buffer dicbuf))) | 1008 (kill-buffer dicbuf))) |