From 0709d2852e8964406f1a73302ce50ae2597596fa Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 3 Sep 1997 07:27:58 +0000 Subject: [PATCH] (mule-menu-keymap): Define only as a variable; specify a name for the keymap. (mule-keymap): Define only as variable. --- lisp/international/mule-cmds.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index d3d1791f971..dee700d5268 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -26,12 +26,11 @@ ;;; MULE related key bindings and menus. -(defvar mule-keymap nil +(defvar mule-keymap (make-sparse-keymap) "Keymap for MULE (Multilingual environment) specific commands.") -(define-prefix-command 'mule-keymap) ;; Keep "C-x C-m ..." for mule specific commands. -(define-key ctl-x-map "\C-m" 'mule-keymap) +(define-key ctl-x-map "\C-m" mule-keymap) (define-key mule-keymap "m" 'toggle-enable-multibyte-characters) (define-key mule-keymap "f" 'set-buffer-file-coding-system) @@ -49,9 +48,8 @@ (define-key help-map "C" 'describe-coding-system) (define-key help-map "h" 'view-hello-file) -(defvar mule-menu-keymap nil +(defvar mule-menu-keymap (make-sparse-keymap "Mule") "Keymap for MULE (Multilingual environment) menu specific commands.") -(define-prefix-command 'mule-menu-keymap) (define-key global-map [menu-bar mule] (cons "Mule" mule-menu-keymap)) -- 2.39.2