diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-11-28 06:55:14 +0100 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-11-28 06:59:49 +0100 |
| commit | 43ec6efa2b41b43a2e55be16434f64bba644271e (patch) | |
| tree | 7441f3115eb9cc0eba6d65ffde85363ac7282b5b /lisp/subr.el | |
| parent | d9dd884c7c1940cacfcc2d86d47220b40c520bb5 (diff) | |
| download | emacs-43ec6efa2b41b43a2e55be16434f64bba644271e.tar.gz emacs-43ec6efa2b41b43a2e55be16434f64bba644271e.tar.bz2 emacs-43ec6efa2b41b43a2e55be16434f64bba644271e.zip | |
Reuse already existing lisp symbols for ignore_event (bug#19547).
* lisp/subr.el (while-no-input-ignore-events): Use them instead.
* src/keyboard.c (kbd_buffer_store_buffered_event):
Use help-echo for HELP_EVENT, iconify-frame for ICONIFY_EVENT,
and make-frame-visible for DEICONIFY_EVENT.
(syms_of_keyboard): Remove unneeded symbols.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 73f7f3e0d12..5da5bf8388a 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -3337,7 +3337,8 @@ 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 iconify deiconify selection-request)) + '(focus-in focus-out help-echo iconify-frame + make-frame-visible selection-request)) (defmacro while-no-input (&rest body) "Execute BODY only as long as there's no pending input. |