diff src/window.c @ 71041:8aeb086972ae

(struct saved_window): Add `dedicated'. (Fset_window_configuration, save_window_save): Save/restore the `dedicated' flag.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 29 May 2006 01:05:24 +0000
parents 6e5b403b5586
children c53dfaf68575
line wrap: on
line diff
--- a/src/window.c	Mon May 29 00:57:27 2006 +0000
+++ b/src/window.c	Mon May 29 01:05:24 2006 +0000
@@ -5794,6 +5794,7 @@
   Lisp_Object left_margin_cols, right_margin_cols;
   Lisp_Object left_fringe_width, right_fringe_width, fringes_outside_margins;
   Lisp_Object scroll_bar_width, vertical_scroll_bar_type;
+  Lisp_Object dedicated;
 };
 
 #define SAVED_WINDOW_N(swv,n) \
@@ -5804,9 +5805,7 @@
      (object)
      Lisp_Object object;
 {
-  if (WINDOW_CONFIGURATIONP (object))
-    return Qt;
-  return Qnil;
+  return WINDOW_CONFIGURATIONP (object) ? Qt : Qnil;
 }
 
 DEFUN ("window-configuration-frame", Fwindow_configuration_frame, Swindow_configuration_frame, 1, 1, 0,
@@ -6028,6 +6027,7 @@
 	  w->fringes_outside_margins = p->fringes_outside_margins;
 	  w->scroll_bar_width = p->scroll_bar_width;
 	  w->vertical_scroll_bar_type = p->vertical_scroll_bar_type;
+	  w->dedicated = p->dedicated;
 	  XSETFASTINT (w->last_modified, 0);
 	  XSETFASTINT (w->last_overlay_modified, 0);
 
@@ -6297,6 +6297,7 @@
       p->fringes_outside_margins = w->fringes_outside_margins;
       p->scroll_bar_width = w->scroll_bar_width;
       p->vertical_scroll_bar_type = w->vertical_scroll_bar_type;
+      p->dedicated = w->dedicated;
       if (!NILP (w->buffer))
 	{
 	  /* Save w's value of point in the window configuration.