diff options
| author | Glenn Morris <[email protected]> | 2009-09-10 06:20:25 +0000 |
|---|---|---|
| committer | Glenn Morris <[email protected]> | 2009-09-10 06:20:25 +0000 |
| commit | a47236297e4150fd84c4079a0266c65ac546be61 (patch) | |
| tree | d599e33c8412f4d65eb604ac1f790ab86d9085fd /lisp/international/mule-cmds.el | |
| parent | 2fa207112ce592bf2ac3601f67c6c08d342120de (diff) | |
(top-level): Require cl when compiling.
(view-hello-file): Use default-value rather than
default-enable-multibyte-characters.
Diffstat (limited to 'lisp/international/mule-cmds.el')
| -rw-r--r-- | lisp/international/mule-cmds.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 96c17ed463..ec7a351abd 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -31,6 +31,8 @@ ;;; Code: +(eval-when-compile (require 'cl)) ; letf + (defvar dos-codepage) (autoload 'widget-value "wid-edit") @@ -281,9 +283,9 @@ wrong, use this command again to toggle back to the right mode." "Display the HELLO file, which lists many languages and characters." (interactive) ;; We have to decode the file in any environment. - (let ((default-enable-multibyte-characters t) - (coding-system-for-read 'iso-2022-7bit)) - (view-file (expand-file-name "HELLO" data-directory)))) + (letf (((default-value 'enable-multibyte-characters) t) + (coding-system-for-read 'iso-2022-7bit)) + (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." |