Mercurial > emacs
changeset 20295:27ae44142cfd
(set-input-method): Renamed from select-input-method.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 20 Nov 1997 22:14:40 +0000 |
| parents | 9bfc29d7f4d7 |
| children | 0b41c3dab3a7 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Thu Nov 20 22:12:59 1997 +0000 +++ b/lisp/international/mule-cmds.el Thu Nov 20 22:14:40 1997 +0000 @@ -37,7 +37,7 @@ (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) -(define-key mule-keymap "\C-\\" 'select-input-method) +(define-key mule-keymap "\C-\\" 'set-input-method) (define-key mule-keymap "c" 'universal-coding-system-argument) (define-key mule-keymap "l" 'set-language-environment) @@ -82,8 +82,8 @@ (define-key-after mule-menu-keymap [toggle-input-method] '("Toggle Input Method" . toggle-input-method) t) -(define-key-after mule-menu-keymap [select-input-method] - '("Select Input Method" . select-input-method) +(define-key-after mule-menu-keymap [set-input-method] + '("Select Input Method" . set-input-method) t) (define-key-after mule-menu-keymap [describe-input-method] '("Describe Input Method" . describe-input-method) @@ -498,7 +498,7 @@ (setq current-input-method nil current-input-method-title nil))))) -(defun select-input-method (input-method) +(defun set-input-method (input-method) "Select and turn on INPUT-METHOD. This sets the default input method to what you specify, and turn it on for the current buffer."