mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 06:31:13 -08:00
Code Issues Projects Releases Wiki Activity

Fix test failures due to 'xterm-select-active-regions'

Browse source 
* lisp/frame.el (tty-select-active-regions): Rename from
xterm-select-active-regions and move here from xterm.c.
(display-selections-p): Adjust to the above.  (Bug#55883)
This commit is contained in:
Eli Zaretskii 2022-06-18 19:21:21 +03:00
parent 233b3dc7e1
commit 7e1f84fa3b
3 changed files with 11 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

4
etc/NEWS
View file

@ -509,8 +509,8 @@ the 'COLORTERM' environment variable is set to the value "truecolor".
*** Select active regions with xterm selection support.
On terminals with xterm setSelection support, the active region may be
saved to the X primary selection, following the
'select-active-regions' variable. This support is enabled with
'xterm-select-active-regions'.
'select-active-regions' variable. This support is enabled when
'tty-select-active-regions' is non-nil.
** ERT

12
lisp/frame.el
View file

@ -2149,8 +2149,14 @@ frame's display)."
(defalias 'display-multi-frame-p #'display-graphic-p)
(defalias 'display-multi-font-p #'display-graphic-p)
;; From term/xterm.el
(defvar xterm-select-active-regions)
(defcustom tty-select-active-regions nil
"If non-nil, update PRIMARY window-system selection on text-mode frames.
On a text-mode terminal that supports setSelection command, if
this variable is non-nil, Emacs will set the PRIMARY selection
from the active region, according to `select-active-regions'.
This is currently supported only on xterm."
:version "29.1"
:type 'boolean)
(defun display-selections-p (&optional display)
"Return non-nil if DISPLAY supports selections.
@ -2167,7 +2173,7 @@ frame's display)."
(not (null dos-windows-version))))
((memq frame-type '(x w32 ns pgtk))
t)
((and xterm-select-active-regions
((and tty-select-active-regions
(terminal-parameter nil 'xterm--set-selection))
t)
(t

8
lisp/term/xterm.el
View file

@ -80,14 +80,6 @@ capabilities, and only when that terminal understands bracketed paste."
:version "28.1"
:type 'boolean)
(defcustom xterm-select-active-regions nil
"If non-nil, update PRIMARY X selection on text-mode frames.
On a text-mode terminal that supports setSelection command, if
this variable is non-nil, Emacs will set the PRIMARY selection
from the active region, according to `select-active-regions'."
:version "29.1"
:type 'boolean)
(defconst xterm-paste-ending-sequence "\e[201~"
"Characters sent by the terminal to end a bracketed paste.")