diff options
author | Kenichi Handa <[email protected]> | 1997-04-05 02:35:53 +0000 |
---|---|---|
committer | Kenichi Handa <[email protected]> | 1997-04-05 02:35:53 +0000 |
commit | 8f81f78455b813f42b3bca1fd8a365308c184f2e (patch) | |
tree | ffc4a75a4049848d7a51212db89d4635e9ee656e | |
parent | 2aa72de7912eb6f93afd27a15b695434fca85c56 (diff) |
Prefix for Mule related commands is changed.
(view-hello-file): Allways does correct decoding of HELLO file.
-rw-r--r-- | lisp/international/mule-cmds.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 6b7eb2add8..985bb6ec87 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. |