From: Martin Rudalics <rudalics@gmx.at>
Date: Fri, 12 Oct 2007 08:36:47 +0000 (+0000)
Subject: (Qexplicit_name): New variable.
X-Git-Tag: emacs-pretest-22.1.90~627
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5839d7e85ca7596071d459595f194f45027535df;p=emacs.git

(Qexplicit_name): New variable.
(x_report_frame_params): Report it in parameter alist.
(syms_of_frame): Intern and staticpro it.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 1220112b8b7..e6c3e1d40a6 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2007-10-12  Martin Rudalics  <rudalics@gmx.at>
+
+	* frame.c (Qexplicit_name): New variable.
+	(x_report_frame_params): Report it in parameter alist.
+	(syms_of_frame): Intern and staticpro it.
+
 2007-10-09  Jason Rumney  <jasonr@gnu.org>
 
 	* w32term.c (x_set_window_size): Disable code that attempts to tell
diff --git a/src/frame.c b/src/frame.c
index a47dff82f5d..df98475d7b3 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -100,6 +100,7 @@ Lisp_Object Qouter_window_id;
 #endif
 Lisp_Object Qparent_id;
 Lisp_Object Qtitle, Qname;
+Lisp_Object Qexplicit_name;
 Lisp_Object Qunsplittable;
 Lisp_Object Qmenu_bar_lines, Qtool_bar_lines;
 Lisp_Object Qleft_fringe, Qright_fringe;
@@ -3006,6 +3007,7 @@ x_report_frame_params (f, alistptr)
     tem = Qnil;
   else
     XSETFASTINT (tem, FRAME_X_OUTPUT (f)->parent_desc);
+  store_in_alist (alistptr, Qexplicit_name, (f->explicit_name ? Qt : Qnil));
   store_in_alist (alistptr, Qparent_id, tem);
 }
 
@@ -3967,6 +3969,8 @@ syms_of_frame ()
   staticpro (&Qframep);
   Qframe_live_p = intern ("frame-live-p");
   staticpro (&Qframe_live_p);
+  Qexplicit_name = intern ("explicit-name");
+  staticpro (&Qexplicit_name);
   Qheight = intern ("height");
   staticpro (&Qheight);
   Qicon = intern ("icon");