Mercurial > emacs
changeset 19725:1b5169b9c5be
(mule-menu-keymap):
Define only as a variable; specify a name for the keymap.
(mule-keymap): Define only as variable.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 03 Sep 1997 07:27:58 +0000 |
| parents | 3f803418061c |
| children | e003f00f25ed |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 3 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Wed Sep 03 07:08:43 1997 +0000 +++ b/lisp/international/mule-cmds.el Wed Sep 03 07:27:58 1997 +0000 @@ -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))