/[emacs]/emacs/lisp/international/mule-cmds.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-cmds.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.198 by fx, Wed Jul 24 22:20:49 2002 UTC revision 1.199 by rms, Fri Aug 2 18:02:17 2002 UTC
# Line 38  Line 38 
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)
# Line 113  Line 114 
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
# Line 146  Line 156 
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    

Legend:
Removed from v.1.198  
changed lines
  Added in v.1.199

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26