Mercurial > emacs

comparison src/frame.c @ 27575:2344fab04513

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fframe_parameters): Add GCPRO because tty_color_name can GC.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 02 Feb 2000 14:00:00 +0000
parents f5dded41adcc
children ab6c81c6edf8
comparison
equal deleted inserted replaced
27574:95320f2b4ccb 27575:2344fab04513
1989 Lisp_Object frame; 1989 Lisp_Object frame;
1990 { 1990 {
1991 Lisp_Object alist; 1991 Lisp_Object alist;
1992 FRAME_PTR f; 1992 FRAME_PTR f;
1993 int height, width; 1993 int height, width;
1994 struct gcpro gcpro1;
1994 1995
1995 if (EQ (frame, Qnil)) 1996 if (EQ (frame, Qnil))
1996 frame = selected_frame; 1997 frame = selected_frame;
1997 1998
1998 CHECK_FRAME (frame, 0); 1999 CHECK_FRAME (frame, 0);
2000 2001
2001 if (!FRAME_LIVE_P (f)) 2002 if (!FRAME_LIVE_P (f))
2002 return Qnil; 2003 return Qnil;
2003 2004
2004 alist = Fcopy_alist (f->param_alist); 2005 alist = Fcopy_alist (f->param_alist);
2006 GCPRO1 (alist);
2007
2005 if (!FRAME_WINDOW_P (f)) 2008 if (!FRAME_WINDOW_P (f))
2006 { 2009 {
2007 int fg = FRAME_FOREGROUND_PIXEL (f); 2010 int fg = FRAME_FOREGROUND_PIXEL (f);
2008 int bg = FRAME_BACKGROUND_PIXEL (f); 2011 int bg = FRAME_BACKGROUND_PIXEL (f);
2009 2012
2040 /* This ought to be correct in f->param_alist for an X frame. */ 2043 /* This ought to be correct in f->param_alist for an X frame. */
2041 Lisp_Object lines; 2044 Lisp_Object lines;
2042 XSETFASTINT (lines, FRAME_MENU_BAR_LINES (f)); 2045 XSETFASTINT (lines, FRAME_MENU_BAR_LINES (f));
2043 store_in_alist (&alist, Qmenu_bar_lines, lines); 2046 store_in_alist (&alist, Qmenu_bar_lines, lines);
2044 } 2047 }
2048
2049 UNGCPRO;
2045 return alist; 2050 return alist;
2046 } 2051 }
2047 2052
2048 DEFUN ("modify-frame-parameters", Fmodify_frame_parameters, 2053 DEFUN ("modify-frame-parameters", Fmodify_frame_parameters,
2049 Smodify_frame_parameters, 2, 2, 0, 2054 Smodify_frame_parameters, 2, 2, 0,