From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 2 Feb 2000 14:00:00 +0000 (+0000)
Subject: (Fframe_parameters): Add GCPRO because tty_color_name can GC.
X-Git-Tag: emacs-pretest-21.0.90~5129
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=57629833653065f236b8dd540c85d057e7d1a9ce;p=emacs.git

(Fframe_parameters): Add GCPRO because tty_color_name can GC.
---

diff --git a/src/frame.c b/src/frame.c
index aaaf03add34..f8b086196f8 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -1991,6 +1991,7 @@ If FRAME is omitted, return information on the currently selected frame.")
   Lisp_Object alist;
   FRAME_PTR f;
   int height, width;
+  struct gcpro gcpro1;
 
   if (EQ (frame, Qnil))
     frame = selected_frame;
@@ -2002,6 +2003,8 @@ If FRAME is omitted, return information on the currently selected frame.")
     return Qnil;
 
   alist = Fcopy_alist (f->param_alist);
+  GCPRO1 (alist);
+  
   if (!FRAME_WINDOW_P (f))
     {
       int fg = FRAME_FOREGROUND_PIXEL (f);
@@ -2042,6 +2045,8 @@ If FRAME is omitted, return information on the currently selected frame.")
       XSETFASTINT (lines, FRAME_MENU_BAR_LINES (f));
       store_in_alist (&alist, Qmenu_bar_lines, lines);
     }
+
+  UNGCPRO;
   return alist;
 }