# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 914239479 0
# Node ID e3421077c4120948414f55094f6d6fed63d1738e
# Parent  950f2c278c9a4b4ff76a4b2ed368d6027a669c4b
Use make-sparse-keymap instead of define-prefix-key when defining
MULE menu items.

diff -r 950f2c278c9a -r e3421077c412 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Mon Dec 21 11:18:29 1998 +0000
+++ b/lisp/international/mule-cmds.el	Mon Dec 21 11:24:39 1998 +0000
@@ -58,20 +58,20 @@
 
 (setq menu-bar-final-items (cons 'mule menu-bar-final-items))
 
-(defvar describe-language-environment-map nil)
-(define-prefix-command 'describe-language-environment-map)
+(defvar describe-language-environment-map
+  (make-sparse-keymap "Describe Language Environment"))
 
-(defvar setup-language-environment-map nil)
-(define-prefix-command 'setup-language-environment-map)
+(defvar setup-language-environment-map
+  (make-sparse-keymap "Set Language Environment"))
 
-(defvar set-coding-system-map nil)
-(define-prefix-command 'set-coding-system-map)
+(defvar set-coding-system-map
+  (make-sparse-keymap "Set Coding System"))
 
 (define-key-after mule-menu-keymap [describe-language-environment]
-  '("Describe Language Environment" . describe-language-environment-map)
+  (cons "Describe Language Environment" describe-language-environment-map)
   t)
 (define-key-after mule-menu-keymap [set-language-environment]
-  '("Set Language Environment" . setup-language-environment-map)
+  (cons "Set Language Environment" setup-language-environment-map)
   t)
 (define-key-after mule-menu-keymap [mouse-set-font]
   '("Set Font/Fontset" . mouse-set-font)
@@ -95,7 +95,7 @@
   '("Describe Coding Systems" . describe-coding-system)
   t)
 (define-key-after mule-menu-keymap [set-various-coding-system]
-  '("Set Coding System" . set-coding-system-map)
+  (cons "Set Coding System" set-coding-system-map)
   t)
 (define-key-after mule-menu-keymap [separator-coding-system]
   '("--")