Mercurial > emacs
comparison src/keyboard.c @ 27867:aa784365f0a0
(recursive_edit_1): Cancel busy-cursor.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 25 Feb 2000 14:05:03 +0000 |
| parents | 03d8d5f30d54 |
| children | 27d91702f2e8 |
comparison
equal
deleted
inserted
replaced
| 27866:444c6353b03a | 27867:aa784365f0a0 |
|---|---|
| 855 if (command_loop_level > 0) | 855 if (command_loop_level > 0) |
| 856 { | 856 { |
| 857 specbind (Qstandard_output, Qt); | 857 specbind (Qstandard_output, Qt); |
| 858 specbind (Qstandard_input, Qt); | 858 specbind (Qstandard_input, Qt); |
| 859 } | 859 } |
| 860 | |
| 861 #ifdef HAVE_X_WINDOWS | |
| 862 /* The command loop has started a busy-cursor timer, so we have to | |
| 863 cancel it here, otherwise it will fire because the recursive edit | |
| 864 can take some time. */ | |
| 865 if (display_busy_cursor_p) | |
| 866 cancel_busy_cursor (); | |
| 867 #endif | |
| 860 | 868 |
| 861 val = command_loop (); | 869 val = command_loop (); |
| 862 if (EQ (val, Qt)) | 870 if (EQ (val, Qt)) |
| 863 Fsignal (Qquit, Qnil); | 871 Fsignal (Qquit, Qnil); |
| 864 /* Handle throw from read_minibuf when using minibuffer | 872 /* Handle throw from read_minibuf when using minibuffer |