Commit 0709d285 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mule-menu-keymap):

Define only as a variable; specify a name for the keymap.
(mule-keymap): Define only as variable.
parent f03ca5f5
......@@ -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))
......
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