Mercurial > emacs

changeset 31448:70b366918608

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 07 Sep 2000 11:37:29 +0000
parents 12a61566fea1
children 8797df6a9fa2
files src/frame.c
diffstat 1 files changed, 10 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/frame.c	Thu Sep 07 11:36:52 2000 +0000
+++ b/src/frame.c	Thu Sep 07 11:37:29 2000 +0000
@@ -105,6 +105,7 @@
 Lisp_Object Qbuffer_list;
 Lisp_Object Qtitle;
 Lisp_Object Qdisplay_type;
+Lisp_Object Qbackground_mode;
 
 Lisp_Object Vterminal_frame;
 Lisp_Object Vdefault_frame_alist;
@@ -156,6 +157,8 @@
   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\
@@ -2106,13 +2109,18 @@
     {
       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))
-	    /* Avoid consing in a frequent case.  */
+	  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)));