Mercurial > hg > xemacs-beta

diff lisp/coding.el @ 416:ebe98a74bd68 r21-2-16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-16
author cvs
date Mon, 13 Aug 2007 11:22:23 +0200
parents 697ef44129c6
children
line wrap: on
line diff
--- a/lisp/coding.el	Mon Aug 13 11:21:40 2007 +0200
+++ b/lisp/coding.el	Mon Aug 13 11:22:23 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)
@@ -204,8 +206,6 @@
 ;; compatibility for old XEmacsen (don't use it)
 (copy-coding-system 'undecided 'automatic-conversion)
 
-(copy-coding-system 'no-conversion 'raw-text)
-
 (make-compatible-variable 'enable-multibyte-characters "Unimplemented")
 
 (define-obsolete-variable-alias