(mule-menu-keymap):

Define only as a variable; specify a name for the keymap.
(mule-keymap): Define only as variable.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index d3d1791f97188bacdb7fb9204fe0bcb5ca50f472..dee700d5268a8cbe0abb68713195b1a660985c90 100644 (file)
--- 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))