From: Jan Djärv Date: Thu, 10 Mar 2005 19:08:01 +0000 (+0000) Subject: * xfns.c (hourglass_started): New function. X-Git-Tag: ttn-vms-21-2-B4~1845 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=83c31c8df0ee4f1bb4141a8917e20e3ca9ad5630;p=emacs.git * xfns.c (hourglass_started): New function. --- diff --git a/src/xfns.c b/src/xfns.c index 2be52a49670..816b107cef3 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -4291,6 +4291,14 @@ static Lisp_Object Vhourglass_delay; static void show_hourglass P_ ((struct atimer *)); static void hide_hourglass P_ ((void)); +/* Return non-zero if houglass timer has been started or hourglass is shown. */ + +int +hourglass_started () +{ + return hourglass_shown_p || hourglass_atimer != NULL; +} + /* Cancel a currently active hourglass timer, and start a new one. */