Mercurial > hg > xemacs-beta

diff lisp/coding.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents 7347b34c275b
children 74fd4e045ea6
line wrap: on
line diff
--- a/lisp/coding.el	Mon Aug 13 11:01:58 2007 +0200
+++ b/lisp/coding.el	Mon Aug 13 11:03:08 2007 +0200
@@ -104,9 +104,6 @@
   (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 ()
@@ -118,10 +115,7 @@
   (interactive "zterminal-coding-system: ")
   (get-coding-system coding-system) ; correctness check
   (setq terminal-coding-system coding-system)
-  ; #### should this affect all current tty consoles ?
-  (if (eq (device-type) 'tty)
-      (set-console-tty-output-coding-system
-       (device-console) terminal-coding-system))
+  (set-console-tty-coding-system (device-console) terminal-coding-system)
   (redraw-modeline t))
 
 (defun set-pathname-coding-system (coding-system)