From 8f81f78455b813f42b3bca1fd8a365308c184f2e Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 5 Apr 1997 02:35:53 +0000 Subject: [PATCH] Prefix for Mule related commands is changed. (view-hello-file): Allways does correct decoding of HELLO file. --- lisp/international/mule-cmds.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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. -- 2.39.2