X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fcoding.el;h=30e4036b0c4a8771adfd4aeaf89f2bc36085e225;hb=1a5e6d5283da6884ea5174abb431256f120c1b0c;hp=96056d4e781e529bc1df83aaa85d24ab0f4cc792;hpb=c8aa261a7bf3eb1389d2e018be1d715f73cacd66;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/coding.el b/lisp/coding.el
index 96056d4..30e4036 100644
--- a/lisp/coding.el
+++ b/lisp/coding.el
@@ -104,6 +104,9 @@ or a function symbol which, when called, returns such a cons cell."
   (interactive "zkeyboard-coding-system: ")
   (get-coding-system coding-system) ; correctness check
   (setq keyboard-coding-system coding-system)
+  (if (eq (device-type) 'tty)
+      (set-console-tty-input-coding-system
+       (device-console) keyboard-coding-system))
   (redraw-modeline t))
 
 (defsubst terminal-coding-system ()
@@ -117,7 +120,8 @@ or a function symbol which, when called, returns such a cons cell."
   (setq terminal-coding-system coding-system)
   ; #### should this affect all current tty consoles ?
   (if (eq (device-type) 'tty)
-      (set-console-tty-coding-system (device-console) terminal-coding-system))
+      (set-console-tty-output-coding-system
+       (device-console) terminal-coding-system))
   (redraw-modeline t))
 
 (defun set-pathname-coding-system (coding-system)