comparison lisp/international/mule-cmds.el @ 19036:6ed970c33b7d

(mule-menu-keymap): Fix menu item names.
author Richard M. Stallman <rms@gnu.org>
date Wed, 30 Jul 1997 04:10:55 +0000
parents 2297a2cb909d
children 8fdb29b769ed
comparison
equal deleted inserted replaced
19035:0b4c1d43cb95 19036:6ed970c33b7d
65 65
66 (defvar set-coding-system-map nil) 66 (defvar set-coding-system-map nil)
67 (define-prefix-command 'set-coding-system-map) 67 (define-prefix-command 'set-coding-system-map)
68 68
69 (define-key-after mule-menu-keymap [toggle-mule] 69 (define-key-after mule-menu-keymap [toggle-mule]
70 '("Toggle MULE facility" . toggle-enable-multibyte-characters) 70 '("Toggle Multibyte Characters" . toggle-enable-multibyte-characters)
71 t) 71 t)
72 (define-key-after mule-menu-keymap [describe-language-environment] 72 (define-key-after mule-menu-keymap [describe-language-environment]
73 '("Describe language environment" . describe-language-environment-map) 73 '("Describe Language Environment" . describe-language-environment-map)
74 t) 74 t)
75 (define-key-after mule-menu-keymap [set-language-environment] 75 (define-key-after mule-menu-keymap [set-language-environment]
76 '("Set language environment" . setup-language-environment-map) 76 '("Set Language Environment" . setup-language-environment-map)
77 t) 77 t)
78 (define-key-after mule-menu-keymap [mouse-set-font] 78 (define-key-after mule-menu-keymap [mouse-set-font]
79 '("Set font/fontset" . mouse-set-font) 79 '("Set Font/Fontset" . mouse-set-font)
80 t) 80 t)
81 (define-key-after mule-menu-keymap [separator-mule] 81 (define-key-after mule-menu-keymap [separator-mule]
82 '("--") 82 '("--")
83 t) 83 t)
84 (define-key-after mule-menu-keymap [toggle-input-method] 84 (define-key-after mule-menu-keymap [toggle-input-method]
85 '("Toggle input method" . toggle-input-method) 85 '("Toggle Input Method" . toggle-input-method)
86 t) 86 t)
87 (define-key-after mule-menu-keymap [select-input-method] 87 (define-key-after mule-menu-keymap [select-input-method]
88 '("Select input method" . select-input-method) 88 '("Select Input Method" . select-input-method)
89 t) 89 t)
90 (define-key-after mule-menu-keymap [describe-input-method] 90 (define-key-after mule-menu-keymap [describe-input-method]
91 '("Describe input method" . describe-input-method) 91 '("Describe Input Method" . describe-input-method)
92 t) 92 t)
93 (define-key-after mule-menu-keymap [separator-input-method] 93 (define-key-after mule-menu-keymap [separator-input-method]
94 '("--") 94 '("--")
95 t) 95 t)
96 (define-key-after mule-menu-keymap [describe-coding-system] 96 (define-key-after mule-menu-keymap [describe-coding-system]
97 '("Describe coding systems" . describe-coding-system) 97 '("Describe Coding Systems" . describe-coding-system)
98 t) 98 t)
99 (define-key-after mule-menu-keymap [set-various-coding-system] 99 (define-key-after mule-menu-keymap [set-various-coding-system]
100 '("Set coding systems" . set-coding-system-map) 100 '("Set Coding System" . set-coding-system-map)
101 t) 101 t)
102 (define-key-after mule-menu-keymap [separator-coding-system] 102 (define-key-after mule-menu-keymap [separator-coding-system]
103 '("--") 103 '("--")
104 t) 104 t)
105 (define-key-after mule-menu-keymap [mule-diag] 105 (define-key-after mule-menu-keymap [mule-diag]
106 '("Show diagnosis for MULE" . mule-diag) 106 '("Show All of MULE Status" . mule-diag)
107 t) 107 t)
108 (define-key-after mule-menu-keymap [view-hello-file] 108 (define-key-after mule-menu-keymap [view-hello-file]
109 '("Show many languages" . view-hello-file) 109 '("Show Script Examples" . view-hello-file)
110 t) 110 t)
111 111
112 (define-key-after set-coding-system-map [set-buffer-file-coding-system] 112 (define-key-after set-coding-system-map [set-buffer-file-coding-system]
113 '("Buffer file" . set-buffer-file-coding-system) 113 '("Buffer File" . set-buffer-file-coding-system)
114 t) 114 t)
115 (define-key-after set-coding-system-map [set-terminal-coding-system] 115 (define-key-after set-coding-system-map [set-terminal-coding-system]
116 '("Terminal" . set-terminal-coding-system) 116 '("Terminal" . set-terminal-coding-system)
117 t) 117 t)
118 (define-key-after set-coding-system-map [set-keyboard-coding-system] 118 (define-key-after set-coding-system-map [set-keyboard-coding-system]
119 '("Keyboard" . set-keyboard-coding-system) 119 '("Keyboard" . set-keyboard-coding-system)
120 t) 120 t)
121 (define-key-after set-coding-system-map [set-buffer-process-coding-system] 121 (define-key-after set-coding-system-map [set-buffer-process-coding-system]
122 '("Buffer process" . set-buffer-process-coding-system) 122 '("Buffer Process" . set-buffer-process-coding-system)
123 t) 123 t)
124 124
125 (define-key setup-language-environment-map 125 (define-key setup-language-environment-map
126 [Default] '("Default" . setup-specified-language-environment)) 126 [Default] '("Default" . setup-specified-language-environment))
127 127