38 |
(define-key ctl-x-map "\C-m" mule-keymap) |
(define-key ctl-x-map "\C-m" mule-keymap) |
39 |
|
|
40 |
(define-key mule-keymap "f" 'set-buffer-file-coding-system) |
(define-key mule-keymap "f" 'set-buffer-file-coding-system) |
41 |
|
(define-key mule-keymap "r" 'revert-buffer-with-coding-system) |
42 |
(define-key mule-keymap "t" 'set-terminal-coding-system) |
(define-key mule-keymap "t" 'set-terminal-coding-system) |
43 |
(define-key mule-keymap "k" 'set-keyboard-coding-system) |
(define-key mule-keymap "k" 'set-keyboard-coding-system) |
44 |
(define-key mule-keymap "p" 'set-buffer-process-coding-system) |
(define-key mule-keymap "p" 'set-buffer-process-coding-system) |
114 |
:help "Display multilingual environment settings") |
:help "Display multilingual environment settings") |
115 |
t) |
t) |
116 |
|
|
|
(define-key-after set-coding-system-map [set-buffer-file-coding-system] |
|
|
'(menu-item "For Saving this Buffer" set-buffer-file-coding-system |
|
|
:help "How to encode this buffer on disk") |
|
|
t) |
|
117 |
(define-key-after set-coding-system-map [universal-coding-system-argument] |
(define-key-after set-coding-system-map [universal-coding-system-argument] |
118 |
'(menu-item "For Next Command" universal-coding-system-argument |
'(menu-item "For Next Command" universal-coding-system-argument |
119 |
:help "Coding system to be used by next command") |
:help "Coding system to be used by next command") |
120 |
t) |
t) |
121 |
(define-key-after set-coding-system-map [set-terminal-coding-system] |
(define-key-after set-coding-system-map [separator-1] |
122 |
'(menu-item "For Terminal" set-terminal-coding-system |
'("--") |
123 |
:enable (null (memq window-system '(x w32 mac))) |
t) |
124 |
:help "How to encode terminal output") |
(define-key-after set-coding-system-map [set-buffer-file-coding-system] |
125 |
|
'(menu-item "For Saving This Buffer" set-buffer-file-coding-system |
126 |
|
:help "How to encode this buffer when saved") |
127 |
|
t) |
128 |
|
(define-key-after set-coding-system-map [revert-buffer-with-coding-system] |
129 |
|
'(menu-item "For Reverting This File Now" revert-buffer-with-coding-system |
130 |
|
:enable buffer-file-name |
131 |
|
:help "Revisit this file immediately using specified coding system") |
132 |
|
t) |
133 |
|
(define-key-after set-coding-system-map [separator-2] |
134 |
|
'("--") |
135 |
t) |
t) |
136 |
|
|
137 |
(define-key-after set-coding-system-map [set-keyboard-coding-system] |
(define-key-after set-coding-system-map [set-keyboard-coding-system] |
138 |
'(menu-item "For Keyboard" set-keyboard-coding-system |
'(menu-item "For Keyboard" set-keyboard-coding-system |
139 |
:help "How to decode keyboard input") |
:help "How to decode keyboard input") |
140 |
t) |
t) |
141 |
(define-key-after set-coding-system-map [set-buffer-process-coding-system] |
(define-key-after set-coding-system-map [set-terminal-coding-system] |
142 |
'(menu-item "For I/O with Subprocess" set-buffer-process-coding-system |
'(menu-item "For Terminal" set-terminal-coding-system |
143 |
:visible (fboundp 'start-process) |
:enable (null (memq window-system '(x w32 mac))) |
144 |
:enable (get-buffer-process (current-buffer)) |
:help "How to encode terminal output") |
145 |
:help "How to en/decode I/O from/to subprocess connected to this buffer") |
t) |
146 |
|
(define-key-after set-coding-system-map [separator-3] |
147 |
|
'("--") |
148 |
t) |
t) |
149 |
(define-key-after set-coding-system-map [set-selection-coding-system] |
(define-key-after set-coding-system-map [set-selection-coding-system] |
150 |
'(menu-item "For X Selections/Clipboard" set-selection-coding-system |
'(menu-item "For X Selections/Clipboard" set-selection-coding-system |
156 |
:visible (display-selections-p) |
:visible (display-selections-p) |
157 |
:help "How to en/decode next selection/clipboard operation") |
:help "How to en/decode next selection/clipboard operation") |
158 |
t) |
t) |
159 |
|
(define-key-after set-coding-system-map [set-buffer-process-coding-system] |
160 |
|
'(menu-item "For I/O with Subprocess" set-buffer-process-coding-system |
161 |
|
:visible (fboundp 'start-process) |
162 |
|
:enable (get-buffer-process (current-buffer)) |
163 |
|
:help "How to en/decode I/O from/to subprocess connected to this buffer") |
164 |
|
t) |
165 |
|
|
166 |
|
|
167 |
(define-key setup-language-environment-map |
(define-key setup-language-environment-map |
168 |
[Default] '(menu-item "Default" setup-specified-language-environment)) |
[Default] '(menu-item "Default" setup-specified-language-environment)) |
169 |
|
|