(Fx_hide_tip): Fix last change.

This commit is contained in:
Gerd Moellmann 2000-12-11 21:13:33 +00:00
parent 44b5a125d3
commit a3642e4909
2 changed files with 8 additions and 1 deletions

View file

@ -1,5 +1,7 @@
2000-12-11 Gerd Moellmann <gerd@gnu.org>
* xfns.c (Fx_hide_tip): Fix last change.
* xfns.c (Fx_hide_tip): Avoid unnecessary work when there's
nothing to do. Bind inhibit-quit.
(tip_frame): Make it a Lisp_Object.

View file

@ -10764,9 +10764,13 @@ Value is t is tooltip was open, nil otherwise.")
if (!NILP (tip_timer))
{
Lisp_Object tem = tip_timer;
Lisp_Object tem;
struct gcpro gcpro1;
tem = tip_timer;
GCPRO1 (tem);
tip_timer = Qnil;
call1 (intern ("cancel-timer"), tem);
UNGCPRO;
}
if (FRAMEP (tip_frame))
@ -10779,6 +10783,7 @@ Value is t is tooltip was open, nil otherwise.")
tip_frame = Qnil;
Fdelete_frame (frame, Qnil);
deleted = Qt;
UNGCPRO;
#ifdef USE_LUCID
/* Bloodcurdling hack alert: The Lucid menu bar widget's