(Fx_hide_tip): Fix last change.
This commit is contained in:
parent
44b5a125d3
commit
a3642e4909
2 changed files with 8 additions and 1 deletions
|
@ -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.
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue