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))) |