mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-13 06:50:39 -08:00
Code Issues Projects Releases Wiki Activity

(start_busy_cursor): Allow floats for busy-cursor-delay.

Browse source
This commit is contained in:
Gerd Moellmann 2000-03-01 10:25:12 +00:00
parent 50b1039fa7
commit 3caa99d35d
1 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/xfns.c
View file

@ -10088,17 +10088,25 @@ void
start_busy_cursor ()
{
EMACS_TIME delay;
int secs;
int secs, usecs = 0;
cancel_busy_cursor ();
if (INTEGERP (Vbusy_cursor_delay)
&& XINT (Vbusy_cursor_delay) > 0)
secs = XFASTINT (Vbusy_cursor_delay);
else if (FLOATP (Vbusy_cursor_delay)
&& XFLOAT_DATA (Vbusy_cursor_delay) > 0)
{
Lisp_Object tem;
tem = Ftruncate (Vbusy_cursor_delay, Qnil);
secs = XFASTINT (tem);
usecs = (XFLOAT_DATA (Vbusy_cursor_delay) - secs) * 1000000;
}
else
secs = DEFAULT_BUSY_CURSOR_DELAY;
EMACS_SET_SECS_USECS (delay, secs, 0);
EMACS_SET_SECS_USECS (delay, secs, usecs);
busy_cursor_atimer = start_atimer (ATIMER_RELATIVE, delay,
show_busy_cursor, NULL);
}
@ -10994,7 +11002,7 @@ or when you set the mouse color.");
DEFVAR_LISP ("busy-cursor-delay", &Vbusy_cursor_delay,
"*Seconds to wait before displaying a busy-cursor.\n\
Value must be an integer.");
Value must be an integer or float.");
Vbusy_cursor_delay = make_number (DEFAULT_BUSY_CURSOR_DELAY);
#if 0 /* This doesn't really do anything. */