From: Kenichi Handa <handa@m17n.org>
Date: Sat, 5 Apr 1997 02:35:53 +0000 (+0000)
Subject: Prefix for Mule related commands is changed.
X-Git-Tag: emacs-20.1~2651
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8f81f78455b813f42b3bca1fd8a365308c184f2e;p=emacs.git

Prefix for Mule related commands is changed.
(view-hello-file): Allways does correct decoding of HELLO file.
---

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 6b7eb2add8f..985bb6ec871 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -30,8 +30,8 @@
   "Keymap for MULE (Multilingual environment) specific commands.")
 (fset 'mule-prefix mule-keymap)
 
-;; Keep "C-x C-k ..." for mule specific commands.
-(define-key ctl-x-map "\C-k" 'mule-prefix)
+;; Keep "C-x C-m ..." for mule specific commands.
+(define-key ctl-x-map "\C-m" 'mule-prefix)
 
 (define-key global-map [menu-bar mule] (cons "Mule" mule-keymap))
 
@@ -119,7 +119,10 @@ With arg, make them enable iff arg is positive."
 (defun view-hello-file ()
   "Display the HELLO file which list up many languages and characters."
   (interactive)
-  (find-file-read-only (expand-file-name "HELLO" data-directory)))
+  ;; We have to decode the file in any environment.
+  (let ((default-enable-multibyte-characters t)
+	(coding-system-for-read 'iso-2022-7))
+    (find-file-read-only (expand-file-name "HELLO" data-directory))))
 
 
 ;;; Language support staffs.