Fix some Tramp problems with HP-UX
[emacs.git] / lisp / term / screen.el
blob41fd916a7853c0374229b3ed12815a153b60b606
1 ;;; screen.el --- terminal initialization for screen and tmux -*- lexical-binding: t -*-
2 ;; Copyright (C) 1995, 2001-2015 Free Software Foundation, Inc.
4 (require 'term/xterm)
6 (defcustom xterm-screen-extra-capabilities '(modifyOtherKeys)
7 "Extra capabilities supported under \"screen\".
8 Some features of screen depend on the terminal emulator in which
9 it runs, which can change when the screen session is moved to another tty."
10 :type xterm--extra-capabilities-type
11 :group 'xterm)
13 (defun terminal-init-screen ()
14 "Terminal initialization function for screen."
15 ;; Treat a screen terminal similar to an xterm, but don't use
16 ;; xterm-extra-capabilities's `check' setting since that doesn't seem
17 ;; to work so well (it depends too much on the surrounding terminal
18 ;; emulator, which can change during the session, bug#20356).
19 (let ((xterm-extra-capabilities xterm-screen-extra-capabilities))
20 (tty-run-terminal-initialization (selected-frame) "xterm")))
22 ;; screen.el ends here