(Fx_hide_tip): Fix last change.

diff --git a/src/ChangeLog b/src/ChangeLog
index 871b0e72ce0fc218f551d87032501547fb471785..e450bebd4d1d714111f990064a88e4dbd67c39c5 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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.

diff --git a/src/xfns.c b/src/xfns.c
index 03130eb1e1fc6c1cc5f79c318979ba6302f3ce93..930269c738f994327bf20f258124cf80eb402262 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -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