# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 873271678 0
# Node ID 1b5169b9c5bec3d3aed74dde39ec82619838b644
# Parent  3f803418061c3b2fc2d62a62adfa44b6ceb02c44
(mule-menu-keymap):
Define only as a variable; specify a name for the keymap.
(mule-keymap): Define only as variable.

diff -r 3f803418061c -r 1b5169b9c5be lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Wed Sep 03 07:08:43 1997 +0000
+++ b/lisp/international/mule-cmds.el	Wed Sep 03 07:27:58 1997 +0000
@@ -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))