From: Glenn Morris <rgm@gnu.org>
Date: Thu, 10 Sep 2009 06:20:25 +0000 (+0000)
Subject: (top-level): Require cl when compiling.
X-Git-Tag: emacs-pretest-23.1.90~1422
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a47236297e4150fd84c4079a0266c65ac546be61;p=emacs.git

(top-level): Require cl when compiling.
(view-hello-file): Use default-value rather than
default-enable-multibyte-characters.
---

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."