From 57629833653065f236b8dd540c85d057e7d1a9ce Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 2 Feb 2000 14:00:00 +0000 Subject: [PATCH] (Fframe_parameters): Add GCPRO because tty_color_name can GC. --- src/frame.c | 5 +++++ 1 file changed, 5 insertions(+) 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; } -- 2.39.5