comparison src/frame.c @ 31448:70b366918608

(Fframe_parameter): Handle `name' and `background-mode' specially. (Fframe_parameter) [HAVE_X_WINDOWS]: Handle `display' specially. (Qbackground_mode): New variable. (syms_of_frame_1): Initialize Qbackground_mode.

31447:12a61566fea1

Lisp_Object Qvisible;
Lisp_Object Qbuffer_predicate;
Lisp_Object Qbuffer_list;
Lisp_Object Qtitle;
Lisp_Object Qdisplay_type;

Lisp_Object Vterminal_frame;
Lisp_Object Vdefault_frame_alist;
Lisp_Object Vmouse_position_function;

  staticpro (&Qbuffer_list);
  Qtitle = intern ("title");
  staticpro (&Qtitle);
  Qdisplay_type = intern ("display-type");
  staticpro (&Qdisplay_type);

  DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist,
    "Alist of default values for frame creation.\n\
These may be set in your init file, like this:\n\
  (setq default-frame-alist '((width . 80) (height . 55) (menu-bar-lines . 1))\n\

  
  if (FRAME_LIVE_P (f))
    {
      if (EQ (parameter, Qname))
	value = f->name;
      else
	{
	  value = Fassq (parameter, f->param_alist);
	  if (CONSP (value))
	    value = XCDR (value);
	  else if (EQ (parameter, Qdisplay_type))
	    /* Avoid consing in a frequent case.  */
	    value = Qnil;
	  else
	    value = Fcdr (Fassq (parameter, Fframe_parameters (frame)));
	}
    }

31448:70b366918608

Lisp_Object Qvisible;
Lisp_Object Qbuffer_predicate;
Lisp_Object Qbuffer_list;
Lisp_Object Qtitle;
Lisp_Object Qdisplay_type;
Lisp_Object Qbackground_mode;

Lisp_Object Vterminal_frame;
Lisp_Object Vdefault_frame_alist;
Lisp_Object Vmouse_position_function;

  staticpro (&Qbuffer_list);
  Qtitle = intern ("title");
  staticpro (&Qtitle);
  Qdisplay_type = intern ("display-type");
  staticpro (&Qdisplay_type);
  Qbackground_mode = intern ("background-mode");
  staticpro (&Qbackground_mode);

  DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist,
    "Alist of default values for frame creation.\n\
These may be set in your init file, like this:\n\
  (setq default-frame-alist '((width . 80) (height . 55) (menu-bar-lines . 1))\n\

  
  if (FRAME_LIVE_P (f))
    {
      if (EQ (parameter, Qname))
	value = f->name;
#ifdef HAVE_X_WINDOWS
      else if (EQ (parameter, Qdisplay) && FRAME_X_P (f))
	value = XCAR (FRAME_X_DISPLAY_INFO (f)->name_list_element);
#endif /* HAVE_X_WINDOWS */
      else
	{
	  value = Fassq (parameter, f->param_alist);
	  if (CONSP (value))
	    value = XCDR (value);
	  else if (EQ (parameter, Qdisplay_type)
		   || EQ (parameter, Qbackground_mode))
	    /* Avoid consing in frequent cases.  */
	    value = Qnil;
	  else
	    value = Fcdr (Fassq (parameter, Fframe_parameters (frame)));
	}
    }