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

6c89f663 · Prestoo Ten · Chong Yidong · f9fa9e49 · 6c89f663 · 6c89f663
Commit 6c89f663 authored Feb 27, 2011 by Prestoo Ten Committed by Chong Yidong Feb 27, 2011
Hide whitespace changes
Inline Side-by-side

Showing with 15 additions and 0 deletions

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/term/screen.el lisp/term/screen.el +11 -0

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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.

--- a/lisp/term/screen.el
+++ b/lisp/term/screen.el
+;; -*- 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