diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-05-12 06:56:19 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-05-12 06:56:19 +0000 |
| commit | c3016c969ca0bd0a4feb30ce66645f4accd0dcb0 (patch) | |
| tree | db610cab8256c79454f446ae93c295eb8ac689b8 /lisp/international/encoded-kb.el | |
| parent | 9395eb7cf662da57912c74dac4dfd09b4cd411a1 (diff) | |
| download | emacs-c3016c969ca0bd0a4feb30ce66645f4accd0dcb0.tar.gz | |
(encoded-kbd-mode): Doc-string modified.
(encoded-kbd-select-terminal): The function deleted.
(encoded-kbd-set-coding-system): New function.
Diffstat (limited to 'lisp/international/encoded-kb.el')
| -rw-r--r-- | lisp/international/encoded-kb.el | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el index 474625c361e..346ed2e80f0 100644 --- a/lisp/international/encoded-kb.el +++ b/lisp/international/encoded-kb.el @@ -231,7 +231,7 @@ With arg, turn Keyboard-kbd mode on in and only if arg is positive. When in Encoded-kbd mode, a text sent from a terminal keyboard is accepted as a multilingual text encoded in a coding system -set by the command `set-keyboard-coding-system'" +set by the command `encoded-kbd-set-coding-system'" (interactive "P") (setq encoded-kbd-mode (if (null arg) (null encoded-kbd-mode) @@ -285,14 +285,17 @@ set by the command `set-keyboard-coding-system'" (force-mode-line-update)) ;;;###autoload -(defun encoded-kbd-select-terminal (terminal coding-system) - "Activate Encoded-Kbd mode appropriately for TERMINAL using CODING-SYSTEM." - (interactive "STerminal name: \nzcoding-system: ") +(defun encoded-kbd-set-coding-system (coding-system) + "Activate Encoded-kbd mode appropriately for a terminal using CODING-SYSTEM. +If you specify nil for CODING-SYSTEM, Encoded-kbd mode is toggled off." + (interactive "zCoding system: ") (if window-system (error "Should run emacs on an ordinary terminal")) - (set-terminal-coding-system coding-system) - (set-keyboard-coding-system coding-system) - (setq current-input-method-title terminal) - (encoded-kbd-mode t)) + (if (check-coding-system coding-system) + (progn + (set-keyboard-coding-system coding-system) + (encoded-kbd-mode 1)) + (set-keyboard-coding-system nil) + (encoded-kbd-mode 0))) ;;; encoded-kb.el ends here |