diff options
Diffstat (limited to 'lisp/term/xterm.el')
| -rw-r--r-- | lisp/term/xterm.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 95187d5d117..52a64d6c414 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -790,14 +790,13 @@ Return the pasted text as a string." Can be nil to mean \"no timeout\".") (defvar xterm-query-redisplay-timeout 0.2 - "Seconds to wait before allowing redisplay during terminal - query." ) + "Seconds to wait before allowing redisplay during terminal query." ) (defun xterm--read-event-for-query () - "Like read-event, but inhibit redisplay. + "Like `read-event', but inhibit redisplay. By not redisplaying right away for xterm queries, we can avoid -unsightly flashing during initialization. Give up and redisplay +unsightly flashing during initialization. Give up and redisplay anyway if we've been waiting a little while." (let ((start-time (current-time))) (or (let ((inhibit-redisplay t)) |