procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Do not use find-file non-interactively

Browse source 
* lisp/international/titdic-cnv (miscdic-convert): Use
   insert-file-contents in place of find-file.
This commit is contained in:
Phillip Lord 2017-01-20 15:11:50 +00:00
parent c2469c50e8
commit 514a14ffd8
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/international/titdic-cnv.el
View file

@ -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"