From 514a14ffd826e2686a106f45b7e7495ab42fe12e Mon Sep 17 00:00:00 2001 From: Phillip Lord Date: Fri, 20 Jan 2017 15:11:50 +0000 Subject: [PATCH] Do not use find-file non-interactively * lisp/international/titdic-cnv (miscdic-convert): Use insert-file-contents in place of find-file. --- lisp/international/titdic-cnv.el | 13 ++++++++----- 1 file 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" -- 2.39.5