[Emacs-diffs] emacs/lisp/international mule-cmds.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/10 06:20:25

Modified files:
        lisp/international: mule-cmds.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/mule-cmds.el?cvsroot=emacs&r1=1.368&r2=1.369

Patches:
Index: mule-cmds.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.368
retrieving revision 1.369
diff -u -b -r1.368 -r1.369
--- mule-cmds.el        3 Sep 2009 06:55:01 -0000       1.368
+++ mule-cmds.el        10 Sep 2009 06:20:25 -0000      1.369
@@ -31,6 +31,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))      ; letf
+
 (defvar dos-codepage)
 (autoload 'widget-value "wid-edit")
 
@@ -281,7 +283,7 @@
   "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)
+  (letf (((default-value 'enable-multibyte-characters) t)
        (coding-system-for-read 'iso-2022-7bit))
     (view-file (expand-file-name "HELLO" data-directory))))