lisp/term/screen.el

   1 ;;; screen.el --- terminal initialization for screen and tmux  -*- lexical-binding: t -*-
   2 ;; Copyright (C) 1995, 2001-2017 Free Software Foundation, Inc.
   3
   4 (require 'term/xterm)
   5
   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   :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