mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-28 02:40:46 -08:00
6276f73115
* lisp/term/st.el (xterm-st-extra-capabilities): New user option (bug#50119). (terminal-init-st): Use it to avoid a two-second timeout.
31 lines
938 B
EmacsLisp
31 lines
938 B
EmacsLisp
;;; st.el --- terminal initialization for st -*- lexical-binding:t -*-
|
|
|
|
;; Copyright (C) 2020-2021 Free Software Foundation, Inc.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Support for the st terminal emulator.
|
|
;; https://st.suckless.org/
|
|
|
|
;;; Code:
|
|
|
|
(require 'term/xterm)
|
|
|
|
(defcustom xterm-st-extra-capabilities '( modifyOtherKeys getSelection
|
|
setSelection)
|
|
"Extra capabilities supported under \"stterm\".
|
|
Some features of screen depend on the terminal emulator in which
|
|
it runs, which can change when the screen session is moved to another tty."
|
|
:version "28.1"
|
|
:type xterm--extra-capabilities-type
|
|
:group 'xterm)
|
|
|
|
(defun terminal-init-st ()
|
|
"Terminal initialization function for st."
|
|
;; Using `check' leads to a two-second timeout.
|
|
(let ((xterm-extra-capabilities xterm-st-extra-capabilities))
|
|
(tty-run-terminal-initialization (selected-frame) "xterm")))
|
|
|
|
(provide 'term/st)
|
|
|
|
;;; st.el ends here
|