summaryrefslogtreecommitdiff
path: root/lisp/subr.el
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2018-09-29 10:11:08 +0300
committerEli Zaretskii <eliz@gnu.org>2018-09-29 10:11:08 +0300
commitd416109f06ab3910e3f49176185154a5179b6354 (patch)
treee2d3a535988c323c03fe352aaa2e2795079e314b /lisp/subr.el
parente8a4d942dd7305b85850603c97d987e52510a726 (diff)
downloademacs-d416109f06ab3910e3f49176185154a5179b6354.tar.gz
Avoid returning early in 'while-no-input' due to subprocesses
* src/keyboard.c (kbd_buffer_store_buffered_event): Support also the internal buffer-switch events. (syms_of_keyboard) <Qbuffer_switch>: New DEFSYM. * lisp/subr.el (while-no-input-ignore-events): Ignore 'buffer-switch' events. Reported by Michael Heerdegen <michael_heerdegen@web.de>. * etc/NEWS: Mention the change in behavior of 'while-no-input'
Diffstat (limited to 'lisp/subr.el')
-rw-r--r--lisp/subr.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el
index 7582b6cdb85..59f6949b211 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3542,7 +3542,7 @@ is allowed once again. (Immediately, if `inhibit-quit' is nil.)"
;; Don't throw `throw-on-input' on those events by default.
(setq while-no-input-ignore-events
'(focus-in focus-out help-echo iconify-frame
- make-frame-visible selection-request))
+ make-frame-visible selection-request buffer-switch))
(defmacro while-no-input (&rest body)
"Execute BODY only as long as there's no pending input.