aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2020-11-30 20:44:11 +0200
committerEli Zaretskii2020-11-30 20:44:11 +0200
commit3e6525d69f0de68fe2305f8e2102c8a5ce42f671 (patch)
treeaad5ff643ffe09f9bb915321a42ff197ad7f83f1
parent9fbff9c35cb4a6c5099178d6c712690ea4614d6a (diff)
downloademacs-3e6525d69f0de68fe2305f8e2102c8a5ce42f671.tar.gz
emacs-3e6525d69f0de68fe2305f8e2102c8a5ce42f671.zip
Don't show in 'view-lossage' responses to xterm feature queries
* lisp/term/xterm.el (xterm--read-event-for-query): Prevent recording the characters read as the xterm response to a query, so as not to show them in 'view-lossage'. (Bug#44908)
-rw-r--r--lisp/term/xterm.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index 1a727e3933e..709410064b1 100644
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -767,7 +767,8 @@ Can be nil to mean \"no timeout\".")
767By not redisplaying right away for xterm queries, we can avoid 767By not redisplaying right away for xterm queries, we can avoid
768unsightly flashing during initialization. Give up and redisplay 768unsightly flashing during initialization. Give up and redisplay
769anyway if we've been waiting a little while." 769anyway if we've been waiting a little while."
770 (let ((start-time (current-time))) 770 (let ((start-time (current-time))
771 (inhibit--record-char t))
771 (or (let ((inhibit-redisplay t)) 772 (or (let ((inhibit-redisplay t))
772 (read-event nil nil xterm-query-redisplay-timeout)) 773 (read-event nil nil xterm-query-redisplay-timeout))
773 (read-event nil nil 774 (read-event nil nil