diff options
| -rw-r--r-- | lisp/international/titdic-cnv.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index 6f65d491ed4..130bc742a51 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -1167,11 +1167,14 @@ the generated Quail package is saved." (if (eq coding 'iso-2022-cn-ext) "Chinese-CNS" "Chinese-GB")) "\" \"" title "\" t\n") - (let* ((coding-system-for-read - (coding-system-change-eol-conversion coding 'unix)) - (dicbuf (find-file-noselect filename))) - (funcall converter dicbuf name title) - (kill-buffer dicbuf)) + (let ((coding-system-for-read + (coding-system-change-eol-conversion coding 'unix)) + (dstbuf (current-buffer))) + (with-temp-buffer + (insert-file-contents filename) + (let ((dicbuf (current-buffer))) + (with-current-buffer dstbuf + (funcall converter dicbuf name title))))) (insert ";; Local Variables:\n" ";; version-control: never\n" ";; no-update-autoloads: t\n" |