From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 3 Sep 1997 07:27:58 +0000 (+0000)
Subject: (mule-menu-keymap):
X-Git-Tag: emacs-20.1~223
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0709d2852e8964406f1a73302ce50ae2597596fa;p=emacs.git

(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 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))