Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 48879:153dc2e78966
(mule-keymap, set-coding-system-map):
Add bindings for set-file-name-coding-system.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 17 Dec 2002 11:56:26 +0000 |
| parents | c7299043f7f4 |
| children | 41a95e836e30 |
comparison
equal
deleted
inserted
replaced
| 48878:063364651d43 | 48879:153dc2e78966 |
|---|---|
| 37 ;; Keep "C-x C-m ..." for mule specific commands. | 37 ;; Keep "C-x C-m ..." for mule specific commands. |
| 38 (define-key ctl-x-map "\C-m" mule-keymap) | 38 (define-key ctl-x-map "\C-m" mule-keymap) |
| 39 | 39 |
| 40 (define-key mule-keymap "f" 'set-buffer-file-coding-system) | 40 (define-key mule-keymap "f" 'set-buffer-file-coding-system) |
| 41 (define-key mule-keymap "r" 'revert-buffer-with-coding-system) | 41 (define-key mule-keymap "r" 'revert-buffer-with-coding-system) |
| 42 (define-key mule-keymap "F" 'set-file-name-coding-system) | |
| 42 (define-key mule-keymap "t" 'set-terminal-coding-system) | 43 (define-key mule-keymap "t" 'set-terminal-coding-system) |
| 43 (define-key mule-keymap "k" 'set-keyboard-coding-system) | 44 (define-key mule-keymap "k" 'set-keyboard-coding-system) |
| 44 (define-key mule-keymap "p" 'set-buffer-process-coding-system) | 45 (define-key mule-keymap "p" 'set-buffer-process-coding-system) |
| 45 (define-key mule-keymap "x" 'set-selection-coding-system) | 46 (define-key mule-keymap "x" 'set-selection-coding-system) |
| 46 (define-key mule-keymap "X" 'set-next-selection-coding-system) | 47 (define-key mule-keymap "X" 'set-next-selection-coding-system) |
| 127 t) | 128 t) |
| 128 (define-key-after set-coding-system-map [revert-buffer-with-coding-system] | 129 (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 '(menu-item "For Reverting This File Now" revert-buffer-with-coding-system |
| 130 :enable buffer-file-name | 131 :enable buffer-file-name |
| 131 :help "Revisit this file immediately using specified coding system") | 132 :help "Revisit this file immediately using specified coding system") |
| 133 t) | |
| 134 (define-key-after set-coding-system-map [set-file-name-coding-system] | |
| 135 '(menu-item "For File Name" set-file-name-coding-system | |
| 136 :help "How to decode/encode file names") | |
| 132 t) | 137 t) |
| 133 (define-key-after set-coding-system-map [separator-2] | 138 (define-key-after set-coding-system-map [separator-2] |
| 134 '("--") | 139 '("--") |
| 135 t) | 140 t) |
| 136 | 141 |