[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 9a81956: * lisp/international/ja-dic-cnv.el: Attempt to fix bug#4
From: |
Stefan Monnier |
Subject: |
master 9a81956: * lisp/international/ja-dic-cnv.el: Attempt to fix bug#41250 |
Date: |
Tue, 6 Oct 2020 09:34:25 -0400 (EDT) |
branch: master
commit 9a819568ccb2f2d3c692dd35b5c710ab24942ac6
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* lisp/international/ja-dic-cnv.el: Attempt to fix bug#41250
(skkdic-convert): Only bind `coding-system-for-read` where needed.
---
lisp/international/ja-dic-cnv.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/international/ja-dic-cnv.el b/lisp/international/ja-dic-cnv.el
index f5e70ce..5f645b6 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 "/")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 9a81956: * lisp/international/ja-dic-cnv.el: Attempt to fix bug#41250,
Stefan Monnier <=