From: Prestoo Ten <prestooten@gmail.com>
Date: Sun, 27 Feb 2011 21:26:22 +0000 (-0500)
Subject: * term/screen.el: New file (Bug#2650).
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~709
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6c89f663ba51640d75837060be32befdce7d7e6d;p=emacs.git

* term/screen.el: New file (Bug#2650).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c2731530e57..02e6c3c56ba 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-02-27  Prestoo Ten  <prestooten@gmail.com>
+
+	* term/screen.el: New file (Bug#2650).
+
 2011-02-27  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* emacs-lisp/pcase.el (pcase--if): Try to invert test to reduce depth.
diff --git a/lisp/term/screen.el b/lisp/term/screen.el
new file mode 100644
index 00000000000..4931a422e09
--- /dev/null
+++ b/lisp/term/screen.el
@@ -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