martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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;
}