Mercurial > emacs
changeset 104911:0261f99bf928
(top-level): Require cl when compiling.
(view-hello-file): Use default-value rather than
default-enable-multibyte-characters.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 10 Sep 2009 06:20:25 +0000 |
| parents | 9967bdb55e21 |
| children | ad1f780103d9 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Thu Sep 10 06:19:53 2009 +0000 +++ b/lisp/international/mule-cmds.el Thu Sep 10 06:20:25 2009 +0000 @@ -31,6 +31,8 @@ ;;; Code: +(eval-when-compile (require 'cl)) ; letf + (defvar dos-codepage) (autoload 'widget-value "wid-edit") @@ -281,9 +283,9 @@ "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."