emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r99951: (view-hello-file): Don't fidd


From: Stefan Monnier
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r99951: (view-hello-file): Don't fiddle with the default enable-multibyte-characters.
Date: Tue, 20 Apr 2010 10:45:14 -0400
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 99951
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2010-04-20 10:45:14 -0400
message:
  (view-hello-file): Don't fiddle with the default enable-multibyte-characters.
modified:
  lisp/ChangeLog
  lisp/international/mule-cmds.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-04-19 17:05:12 +0000
+++ b/lisp/ChangeLog    2010-04-20 14:45:14 +0000
@@ -1,3 +1,8 @@
+2010-04-20  Stefan Monnier  <address@hidden>
+
+       * international/mule-cmds.el (view-hello-file): Don't fiddle with the
+       default enable-multibyte-characters.
+
 2010-04-19  Stefan Monnier  <address@hidden>
 
        * international/mule.el: Help the user choose a valid coding-system.

=== modified file 'lisp/international/mule-cmds.el'
--- a/lisp/international/mule-cmds.el   2010-01-15 12:35:31 +0000
+++ b/lisp/international/mule-cmds.el   2010-04-20 14:45:14 +0000
@@ -286,8 +286,7 @@
   "Display the HELLO file, which lists many languages and characters."
   (interactive)
   ;; We have to decode the file in any environment.
-  (letf (((default-value 'enable-multibyte-characters) t)
-        (coding-system-for-read 'iso-2022-7bit))
+  (letf ((coding-system-for-read 'iso-2022-7bit))
        (view-file (expand-file-name "HELLO" data-directory))))
 
 (defun universal-coding-system-argument (coding-system)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]