code.delx.au - gnu-emacs/blob - lisp/term/screen.el

   1 ;; -*- no-byte-compile: t -*-
   2 ;; Treat a screen terminal similar to an xterm.
   3 (load "term/xterm")
   4
   5 (defun terminal-init-screen ()
   6   "Terminal initialization function for screen."
   7   ;; Use the xterm color initialization code.
   8   (xterm-register-default-colors)
   9   (tty-set-up-initial-frame-faces))
  10
  11 ;; screen.el ends here