diff options
| author | Michael Albinus | 2021-03-18 12:43:35 +0100 |
|---|---|---|
| committer | Michael Albinus | 2021-03-18 12:43:35 +0100 |
| commit | ce1b4acd71e962b6a72a779ee04cb5aeb6ceb6f2 (patch) | |
| tree | 1660de493edf20937275c3c115481b3971eb2e2b | |
| parent | 4d5ad8a16e1fe925dd3fa0993aabb2612a82622b (diff) | |
| download | emacs-ce1b4acd71e962b6a72a779ee04cb5aeb6ceb6f2.tar.gz emacs-ce1b4acd71e962b6a72a779ee04cb5aeb6ceb6f2.zip | |
Extend handled events in 'while-no-input-ignore-events' (Bug#47205)
* etc/NEWS: Mention changes to 'while-no-input-ignore-events'.
* src/keyboard.c (kbd_buffer_store_buffered_event): Handle also
Qfile_notify and Qdbus_event as ignore_event. (Bug#47205)
| -rw-r--r-- | etc/NEWS | 14 | ||||
| -rw-r--r-- | src/keyboard.c | 6 |
2 files changed, 16 insertions, 4 deletions
| @@ -532,7 +532,7 @@ It can be used to enable/disable the tab bar individually on each frame | |||
| 532 | independently from the value of 'tab-bar-mode' and 'tab-bar-show'. | 532 | independently from the value of 'tab-bar-mode' and 'tab-bar-show'. |
| 533 | 533 | ||
| 534 | --- | 534 | --- |
| 535 | *** New option 'tab-bar-format' defines a list of tab bar items. | 535 | *** New user option 'tab-bar-format' defines a list of tab bar items. |
| 536 | When it contains 'tab-bar-format-global' (possibly appended after | 536 | When it contains 'tab-bar-format-global' (possibly appended after |
| 537 | 'tab-bar-format-align-right'), then after enabling 'display-time-mode' | 537 | 'tab-bar-format-align-right'), then after enabling 'display-time-mode' |
| 538 | (or any other mode that uses 'global-mode-string') it displays time | 538 | (or any other mode that uses 'global-mode-string') it displays time |
| @@ -558,7 +558,8 @@ It also supports a negative argument. | |||
| 558 | --- | 558 | --- |
| 559 | *** 'C-x t G' assigns a group name to the tab. | 559 | *** 'C-x t G' assigns a group name to the tab. |
| 560 | 'tab-close-group' can close all tabs that belong to the selected group. | 560 | 'tab-close-group' can close all tabs that belong to the selected group. |
| 561 | The option 'tab-bar-new-tab-group' defines the default group of a new tab. | 561 | The user option 'tab-bar-new-tab-group' defines the default group of a |
| 562 | new tab. | ||
| 562 | 563 | ||
| 563 | --- | 564 | --- |
| 564 | *** New user option 'tab-bar-tab-name-format-function'. | 565 | *** New user option 'tab-bar-tab-name-format-function'. |
| @@ -2257,8 +2258,8 @@ first). | |||
| 2257 | ** The 'M-o M-s' and 'M-o M-S' global bindings have been removed. | 2258 | ** The 'M-o M-s' and 'M-o M-S' global bindings have been removed. |
| 2258 | Use 'M-x center-line' and 'M-x center-paragraph' instead. | 2259 | Use 'M-x center-line' and 'M-x center-paragraph' instead. |
| 2259 | 2260 | ||
| 2260 | ** The 'M-o M-o' global binding have been removed. | 2261 | ** The 'M-o M-o' global binding has been removed. |
| 2261 | Use 'M-x font-lock-fontify-block' instead, or the new `C-x x f' | 2262 | Use 'M-x font-lock-fontify-block' instead, or the new 'C-x x f' |
| 2262 | command, which toggles fontification in the current buffer. | 2263 | command, which toggles fontification in the current buffer. |
| 2263 | 2264 | ||
| 2264 | ** In 'f90-mode', the backslash character ('\') no longer escapes. | 2265 | ** In 'f90-mode', the backslash character ('\') no longer escapes. |
| @@ -2825,6 +2826,11 @@ semantics of RFC 8259 instead of the earlier RFC 4627. In particular, | |||
| 2825 | these functions now accept top-level JSON values that are neither | 2826 | these functions now accept top-level JSON values that are neither |
| 2826 | arrays nor objects. | 2827 | arrays nor objects. |
| 2827 | 2828 | ||
| 2829 | --- | ||
| 2830 | ** 'while-no-input-ignore-events' accepts more special events. | ||
| 2831 | The special events 'dbus-event' and 'file-notify' are now ignored in | ||
| 2832 | 'while-no-input' when added to this variable. | ||
| 2833 | |||
| 2828 | 2834 | ||
| 2829 | * Changes in Emacs 28.1 on Non-Free Operating Systems | 2835 | * Changes in Emacs 28.1 on Non-Free Operating Systems |
| 2830 | 2836 | ||
diff --git a/src/keyboard.c b/src/keyboard.c index 512fa279b38..266ebaa5fdf 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -3614,6 +3614,12 @@ kbd_buffer_store_buffered_event (union buffered_input_event *event, | |||
| 3614 | case ICONIFY_EVENT: ignore_event = Qiconify_frame; break; | 3614 | case ICONIFY_EVENT: ignore_event = Qiconify_frame; break; |
| 3615 | case DEICONIFY_EVENT: ignore_event = Qmake_frame_visible; break; | 3615 | case DEICONIFY_EVENT: ignore_event = Qmake_frame_visible; break; |
| 3616 | case SELECTION_REQUEST_EVENT: ignore_event = Qselection_request; break; | 3616 | case SELECTION_REQUEST_EVENT: ignore_event = Qselection_request; break; |
| 3617 | #ifdef USE_FILE_NOTIFY | ||
| 3618 | case FILE_NOTIFY_EVENT: ignore_event = Qfile_notify; break; | ||
| 3619 | #endif | ||
| 3620 | #ifdef HAVE_DBUS | ||
| 3621 | case DBUS_EVENT: ignore_event = Qdbus_event; break; | ||
| 3622 | #endif | ||
| 3617 | default: ignore_event = Qnil; break; | 3623 | default: ignore_event = Qnil; break; |
| 3618 | } | 3624 | } |
| 3619 | 3625 | ||