Mercurial > emacs
changeset 17294:d7ae63db9e6e
Prefix for Mule related commands is changed.
(view-hello-file): Allways does correct decoding of HELLO file.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 05 Apr 1997 02:35:53 +0000 |
| parents | 273b0cd6aac4 |
| children | 34efd2073019 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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.