aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa1997-05-28 03:35:34 +0000
committerKenichi Handa1997-05-28 03:35:34 +0000
commit77e94796fdaf34ab3f6c124ff021d5e7bac77959 (patch)
tree11f3b25030906c14393cfd4c80138fe5705e231d
parentdf100398203950b6939c11a5abee0b3f05adb4ff (diff)
downloademacs-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.el16
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.
230With arg, turn Keyboard-kbd mode on in and only if arg is positive. 230With arg, turn Keyboard-kbd mode on if and only if arg is positive.
231 231
232When in Encoded-kbd mode, a text sent from a terminal keyboard 232When in Encoded-kbd mode, a text sent from a terminal keyboard
233is accepted as a multilingual text encoded in a coding system 233is 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.
290If 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