From dcad02bc0ce60da7c553d7f75364ee1355fd2d9b Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 21 Dec 1998 11:24:39 +0000 Subject: [PATCH] Use make-sparse-keymap instead of define-prefix-key when defining MULE menu items. --- lisp/international/mule-cmds.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index ee5241d495b..6d9f5b1e9ec 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -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] '("--") -- 2.39.2