diff options
author | Richard M. Stallman <[email protected]> | 2002-08-02 18:02:17 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2002-08-02 18:02:17 +0000 |
commit | d80dee05364c3380e8bb741c8909501d22f05f16 (patch) | |
tree | f075bf4c2bbd37ecc6b63e599ea237e011ca10ff /lisp/international/mule-cmds.el | |
parent | bbdea9488cc24c7636c74f2bb22073b44724e4a7 (diff) |
(mule-keymap, set-coding-system-map):
Add bindings for revert-buffer-with-coding-system.
(set-coding-system-map): Clarify menu item info for
set-buffer-file-coding-system.
(set-coding-system-map): Reorder and add separators.
Diffstat (limited to 'lisp/international/mule-cmds.el')
-rw-r--r-- | lisp/international/mule-cmds.el | 44 |
1 files changed, 31 insertions, 13 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 3d30d36a99..c3d3aa8b14 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -38,6 +38,7 @@ (define-key ctl-x-map "\C-m" mule-keymap) (define-key mule-keymap "f" 'set-buffer-file-coding-system) +(define-key mule-keymap "r" 'revert-buffer-with-coding-system) (define-key mule-keymap "t" 'set-terminal-coding-system) (define-key mule-keymap "k" 'set-keyboard-coding-system) (define-key mule-keymap "p" 'set-buffer-process-coding-system) @@ -113,28 +114,37 @@ :help "Display multilingual environment settings") t) -(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) (define-key-after set-coding-system-map [universal-coding-system-argument] '(menu-item "For Next Command" universal-coding-system-argument :help "Coding system to be used by next command") t) -(define-key-after set-coding-system-map [set-terminal-coding-system] - '(menu-item "For Terminal" set-terminal-coding-system - :enable (null (memq window-system '(x w32 mac))) - :help "How to encode terminal output") +(define-key-after set-coding-system-map [separator-1] + '("--") + t) +(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 when saved") + t) +(define-key-after set-coding-system-map [revert-buffer-with-coding-system] + '(menu-item "For Reverting This File Now" revert-buffer-with-coding-system + :enable buffer-file-name + :help "Revisit this file immediately using specified coding system") + t) +(define-key-after set-coding-system-map [separator-2] + '("--") t) + (define-key-after set-coding-system-map [set-keyboard-coding-system] '(menu-item "For Keyboard" set-keyboard-coding-system :help "How to decode keyboard input") t) -(define-key-after set-coding-system-map [set-buffer-process-coding-system] - '(menu-item "For I/O with Subprocess" set-buffer-process-coding-system - :visible (fboundp 'start-process) - :enable (get-buffer-process (current-buffer)) - :help "How to en/decode I/O from/to subprocess connected to this buffer") +(define-key-after set-coding-system-map [set-terminal-coding-system] + '(menu-item "For Terminal" set-terminal-coding-system + :enable (null (memq window-system '(x w32 mac))) + :help "How to encode terminal output") + t) +(define-key-after set-coding-system-map [separator-3] + '("--") t) (define-key-after set-coding-system-map [set-selection-coding-system] '(menu-item "For X Selections/Clipboard" set-selection-coding-system @@ -146,6 +156,14 @@ :visible (display-selections-p) :help "How to en/decode next selection/clipboard operation") t) +(define-key-after set-coding-system-map [set-buffer-process-coding-system] + '(menu-item "For I/O with Subprocess" set-buffer-process-coding-system + :visible (fboundp 'start-process) + :enable (get-buffer-process (current-buffer)) + :help "How to en/decode I/O from/to subprocess connected to this buffer") + t) + + (define-key setup-language-environment-map [Default] '(menu-item "Default" setup-specified-language-environment)) |