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