Mercurial > hg > xemacs-beta

diff lisp/coding.el @ 357:4711e16a8e49 r21-1-8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-8
author cvs
date Mon, 13 Aug 2007 10:57:04 +0200
parents 405dd6d1825b
children 7347b34c275b
line wrap: on
line diff
--- a/lisp/coding.el	Mon Aug 13 10:56:23 2007 +0200
+++ b/lisp/coding.el	Mon Aug 13 10:57:04 2007 +0200
@@ -115,7 +115,9 @@
   (interactive "zterminal-coding-system: ")
   (get-coding-system coding-system) ; correctness check
   (setq terminal-coding-system coding-system)
-  (set-console-tty-coding-system (device-console) terminal-coding-system)
+  ; #### should this affect all current tty consoles ?
+  (if (eq (device-type) 'tty)
+      (set-console-tty-coding-system (device-console) terminal-coding-system))
   (redraw-modeline t))
 
 (defun set-pathname-coding-system (coding-system)