diff src/frame.c @ 27575:2344fab04513

(Fframe_parameters): Add GCPRO because tty_color_name can GC.

--- a/src/frame.c	Wed Feb 02 13:55:46 2000 +0000
+++ b/src/frame.c	Wed Feb 02 14:00:00 2000 +0000
@@ -1991,6 +1991,7 @@
   Lisp_Object alist;
   FRAME_PTR f;
   int height, width;
+  struct gcpro gcpro1;
 
   if (EQ (frame, Qnil))
     frame = selected_frame;
@@ -2002,6 +2003,8 @@
     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 @@
       XSETFASTINT (lines, FRAME_MENU_BAR_LINES (f));
       store_in_alist (&alist, Qmenu_bar_lines, lines);
     }
+
+  UNGCPRO;
   return alist;
 }