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