* xfns.c (hourglass_started): New function.

diff --git a/src/xfns.c b/src/xfns.c
index 2be52a49670d85a8528aa5d088718fcab1fa7fe5..816b107cef3724884dab2bab4f365ef4a7271c68 100644 (file)
--- 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.  */