(Fx_hide_tip): Fix last change.

2 files changed, 8 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 871b0e72ce0..e450bebd4d1 100644
--- 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 03130eb1e1f..930269c738f 100644
--- 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