Commit a3642e49 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(Fx_hide_tip): Fix last change.

parent 44b5a125
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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment