From a47236297e4150fd84c4079a0266c65ac546be61 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 10 Sep 2009 06:20:25 +0000 Subject: [PATCH] (top-level): Require cl when compiling. (view-hello-file): Use default-value rather than default-enable-multibyte-characters. --- lisp/international/mule-cmds.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 96c17ed4634..ec7a351abda 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." -- 2.39.2