Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3caa99d3
Commit
3caa99d3
authored
Mar 01, 2000
by
Gerd Moellmann
Browse files
(start_busy_cursor): Allow floats for busy-cursor-delay.
parent
50b1039f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
3 deletions
+11
-3
src/xfns.c
src/xfns.c
+11
-3
No files found.
src/xfns.c
View file @
3caa99d3
...
...
@@ -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. */
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment