# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 860207753 0
# Node ID d7ae63db9e6edd7084d6b41278bb1ea6535c793e
# Parent  273b0cd6aac42adc59e7ca1a2e1ae7f0bc6e2e1c
Prefix for Mule related commands is changed.
(view-hello-file): Allways does correct decoding of HELLO file.

diff -r 273b0cd6aac4 -r d7ae63db9e6e lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Sat Apr 05 02:35:53 1997 +0000
+++ b/lisp/international/mule-cmds.el	Sat Apr 05 02:35:53 1997 +0000
@@ -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 @@
 (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.