From: Stefan Monnier Date: Tue, 6 Oct 2020 13:34:20 +0000 (-0400) Subject: * lisp/international/ja-dic-cnv.el: Attempt to fix bug#41250 X-Git-Tag: emacs-28.0.90~5733 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a819568ccb2f2d3c692dd35b5c710ab24942ac6;p=emacs.git * lisp/international/ja-dic-cnv.el: Attempt to fix bug#41250 (skkdic-convert): Only bind `coding-system-for-read` where needed. --- diff --git a/lisp/international/ja-dic-cnv.el b/lisp/international/ja-dic-cnv.el index f5e70ce7021..5f645b6e8e4 100644 --- a/lisp/international/ja-dic-cnv.el +++ b/lisp/international/ja-dic-cnv.el @@ -329,12 +329,12 @@ Optional argument DIRNAME if specified is the directory name under which the generated Emacs Lisp is saved. The name of generated file is specified by the variable `ja-dic-filename'." (interactive "FSKK dictionary file: ") - (let* ((coding-system-for-read 'euc-japan) - (skkbuf (get-buffer-create " *skkdic-unannotated*")) + (let* ((skkbuf (get-buffer-create " *skkdic-unannotated*")) (buf (get-buffer-create "*skkdic-work*"))) ;; Set skkbuf to an unannotated copy of the dictionary. (with-current-buffer skkbuf - (insert-file-contents (expand-file-name filename)) + (let ((coding-system-for-read 'euc-japan)) + (insert-file-contents (expand-file-name filename))) (re-search-forward "^[^;]") (while (re-search-forward ";[^\n/]*/" nil t) (replace-match "/")))