[Emacs-diffs] /srv/bzr/emacs/trunk r103441: * term/screen.el: New file (Bug#2650).

[Chong Yidong]

------------------------------------------------------------
revno: 103441
author: Prestoo Ten <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2011-02-27 16:26:22 -0500
message:
  * term/screen.el: New file (Bug#2650).
added:
  lisp/term/screen.el
modified:
  lisp/ChangeLog

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-27 02:50:38 +0000
+++ b/lisp/ChangeLog    2011-02-27 21:26:22 +0000
@@ -1,3 +1,7 @@
+2011-02-27  Prestoo Ten  <address@hidden>
+
+       * term/screen.el: New file (Bug#2650).
+
 2011-02-27  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/pcase.el (pcase--if): Try to invert test to reduce depth.

=== added file 'lisp/term/screen.el'
--- a/lisp/term/screen.el       1970-01-01 00:00:00 +0000
+++ b/lisp/term/screen.el       2011-02-27 21:26:22 +0000
@@ -0,0 +1,11 @@
+;; -*- no-byte-compile: t -*-
+;; Treat a screen terminal similar to an xterm.
+(load "term/xterm")
+
+(defun terminal-init-screen ()
+  "Terminal initialization function for screen."
+  ;; Use the xterm color initialization code.
+  (xterm-register-default-colors)
+  (tty-set-up-initial-frame-faces))
+
+;; screen.el ends here