diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-04-20 09:16:55 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-04-20 09:16:55 -0400 |
commit | e927a36f3cf974a57094d10023ee075bb4596fb9 (patch) | |
tree | bef7b57cc6c4252e9fae7e7eed05785bd85c8b1f | |
parent | e2ae724460e6d73d3ddcc6066427471799c4bd57 (diff) | |
download | emacs-e927a36f3cf974a57094d10023ee075bb4596fb9.tar.gz emacs-e927a36f3cf974a57094d10023ee075bb4596fb9.tar.bz2 emacs-e927a36f3cf974a57094d10023ee075bb4596fb9.zip |
* lisp/international/mule-cmds.el (view-hello-file): Avoid duplicate
Don't hardcode the coding-system, now that it's specified with a "coding:" tag
-rw-r--r-- | lisp/international/mule-cmds.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index c66cc6747de..6c49b8fa6a0 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -281,9 +281,7 @@ wrong, use this command again to toggle back to the right mode." (defun view-hello-file () "Display the HELLO file, which lists many languages and characters." (interactive) - ;; We have to decode the file in any environment. - (let ((coding-system-for-read 'utf-8)) - (view-file (expand-file-name "HELLO" data-directory)))) + (view-file (expand-file-name "HELLO" data-directory))) (defun universal-coding-system-argument (coding-system) "Execute an I/O command using the specified coding system." |