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

   1 ;;; screen.el --- terminal initialization for screen and tmux  -*- lexical-binding: t -*-
   2 ;; Copyright (C) 1995, 2001-2016 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   :type xterm--extra-capabilities-type
  11   :group 'xterm)
  12
  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")))
  21
  22 ;; screen.el ends here