Mercurial > emacs
changeset 23924:e3421077c412
Use make-sparse-keymap instead of define-prefix-key when defining
MULE menu items.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 21 Dec 1998 11:24:39 +0000 |
| parents | 950f2c278c9a |
| children | 1deaaafdf9ea |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- 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] '("--")