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 |