mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 11:00:45 -08:00
Code Issues Projects Releases Wiki Activity

(read_filtered_event): Cancel and start busy cursor.

Browse source
This commit is contained in:
Gerd Moellmann 2000-04-18 13:41:33 +00:00
parent faeb73d448
commit 5dbf89bc7d
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/lread.c
View file

@ -410,6 +410,11 @@ read_filtered_event (no_switch_frame, ascii_required, error_nonascii,
{
register Lisp_Object val, delayed_switch_frame;
#ifdef HAVE_WINDOW_SYSTEM
if (display_busy_cursor_p)
cancel_busy_cursor ();
#endif
delayed_switch_frame = Qnil;
/* Read until we get an acceptable event. */
@ -467,6 +472,10 @@ read_filtered_event (no_switch_frame, ascii_required, error_nonascii,
if (! NILP (delayed_switch_frame))
unread_switch_frame = delayed_switch_frame;
#ifdef HAVE_WINDOW_SYSTEM
if (display_busy_cursor_p)
start_busy_cursor ();
#endif
return val;
}