diff options
| author | Kenichi Handa | 1997-05-28 03:35:34 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-05-28 03:35:34 +0000 |
| commit | 77e94796fdaf34ab3f6c124ff021d5e7bac77959 (patch) | |
| tree | 11f3b25030906c14393cfd4c80138fe5705e231d | |
| parent | df100398203950b6939c11a5abee0b3f05adb4ff (diff) | |
| download | emacs-77e94796fdaf34ab3f6c124ff021d5e7bac77959.tar.gz emacs-77e94796fdaf34ab3f6c124ff021d5e7bac77959.zip | |
(encoded-kbd-mode): Fix typo in doc-string.
(encoded-kbd-set-coding-system): Deleted.
| -rw-r--r-- | lisp/international/encoded-kb.el | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el index 346ed2e80f0..b63a7a39f63 100644 --- a/lisp/international/encoded-kb.el +++ b/lisp/international/encoded-kb.el | |||
| @@ -227,7 +227,7 @@ The following key sequence may cause multilingual text insertion." | |||
| 227 | ;;;###autoload | 227 | ;;;###autoload |
| 228 | (defun encoded-kbd-mode (&optional arg) | 228 | (defun encoded-kbd-mode (&optional arg) |
| 229 | "Toggle Encoded-kbd minor mode. | 229 | "Toggle Encoded-kbd minor mode. |
| 230 | With arg, turn Keyboard-kbd mode on in and only if arg is positive. | 230 | With arg, turn Keyboard-kbd mode on if and only if arg is positive. |
| 231 | 231 | ||
| 232 | When in Encoded-kbd mode, a text sent from a terminal keyboard | 232 | When in Encoded-kbd mode, a text sent from a terminal keyboard |
| 233 | is accepted as a multilingual text encoded in a coding system | 233 | is accepted as a multilingual text encoded in a coding system |
| @@ -284,18 +284,4 @@ set by the command `encoded-kbd-set-coding-system'" | |||
| 284 | (setq current-input-method nil)) | 284 | (setq current-input-method nil)) |
| 285 | (force-mode-line-update)) | 285 | (force-mode-line-update)) |
| 286 | 286 | ||
| 287 | ;;;###autoload | ||
| 288 | (defun encoded-kbd-set-coding-system (coding-system) | ||
| 289 | "Activate Encoded-kbd mode appropriately for a terminal using CODING-SYSTEM. | ||
| 290 | If you specify nil for CODING-SYSTEM, Encoded-kbd mode is toggled off." | ||
| 291 | (interactive "zCoding system: ") | ||
| 292 | (if window-system | ||
| 293 | (error "Should run emacs on an ordinary terminal")) | ||
| 294 | (if (check-coding-system coding-system) | ||
| 295 | (progn | ||
| 296 | (set-keyboard-coding-system coding-system) | ||
| 297 | (encoded-kbd-mode 1)) | ||
| 298 | (set-keyboard-coding-system nil) | ||
| 299 | (encoded-kbd-mode 0))) | ||
| 300 | |||
| 301 | ;;; encoded-kb.el ends here | 287 | ;;; encoded-kb.el ends here |