Commit dcad02bc authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

Use make-sparse-keymap instead of define-prefix-key when defining

MULE menu items.
parent 11638562
...@@ -58,20 +58,20 @@ ...@@ -58,20 +58,20 @@
(setq menu-bar-final-items (cons 'mule menu-bar-final-items)) (setq menu-bar-final-items (cons 'mule menu-bar-final-items))
(defvar describe-language-environment-map nil) (defvar describe-language-environment-map
(define-prefix-command 'describe-language-environment-map) (make-sparse-keymap "Describe Language Environment"))
(defvar setup-language-environment-map nil) (defvar setup-language-environment-map
(define-prefix-command 'setup-language-environment-map) (make-sparse-keymap "Set Language Environment"))
(defvar set-coding-system-map nil) (defvar set-coding-system-map
(define-prefix-command 'set-coding-system-map) (make-sparse-keymap "Set Coding System"))
(define-key-after mule-menu-keymap [describe-language-environment] (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) t)
(define-key-after mule-menu-keymap [set-language-environment] (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) t)
(define-key-after mule-menu-keymap [mouse-set-font] (define-key-after mule-menu-keymap [mouse-set-font]
'("Set Font/Fontset" . mouse-set-font) '("Set Font/Fontset" . mouse-set-font)
...@@ -95,7 +95,7 @@ ...@@ -95,7 +95,7 @@
'("Describe Coding Systems" . describe-coding-system) '("Describe Coding Systems" . describe-coding-system)
t) t)
(define-key-after mule-menu-keymap [set-various-coding-system] (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) t)
(define-key-after mule-menu-keymap [separator-coding-system] (define-key-after mule-menu-keymap [separator-coding-system]
'("--") '("--")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment