diff options
| author | Stefan Monnier | 2018-04-20 09:16:55 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2018-04-20 09:16:55 -0400 |
| commit | e927a36f3cf974a57094d10023ee075bb4596fb9 (patch) | |
| tree | bef7b57cc6c4252e9fae7e7eed05785bd85c8b1f | |
| parent | e2ae724460e6d73d3ddcc6066427471799c4bd57 (diff) | |
| download | emacs-e927a36f3cf974a57094d10023ee075bb4596fb9.tar.gz 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." | |||
| 281 | (defun view-hello-file () | 281 | (defun view-hello-file () |
| 282 | "Display the HELLO file, which lists many languages and characters." | 282 | "Display the HELLO file, which lists many languages and characters." |
| 283 | (interactive) | 283 | (interactive) |
| 284 | ;; We have to decode the file in any environment. | 284 | (view-file (expand-file-name "HELLO" data-directory))) |
| 285 | (let ((coding-system-for-read 'utf-8)) | ||
| 286 | (view-file (expand-file-name "HELLO" data-directory)))) | ||
| 287 | 285 | ||
| 288 | (defun universal-coding-system-argument (coding-system) | 286 | (defun universal-coding-system-argument (coding-system) |
| 289 | "Execute an I/O command using the specified coding system." | 287 | "Execute an I/O command using the specified coding system." |