mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

(mule-menu-keymap):

Browse Source 
Define only as a variable; specify a name for the keymap.
(mule-keymap): Define only as variable.
This commit is contained in:
Richard M. Stallman 1997-09-03 07:27:58 +00:00
parent f03ca5f57c
commit 0709d2852e
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/international/mule-cmds.el
View File

@ -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))