From: Martin Rudalics <rudalics@gmx.at>
Date: Sun, 16 Sep 2012 10:25:24 +0000 (+0200)
Subject: Window parameter functions again accept any window as argument (Bug#12452).
X-Git-Tag: emacs-24.2.90~273^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8c729af93b08531e5e3f3fff6f16a55c8baac3f;p=emacs.git

Window parameter functions again accept any window as argument (Bug#12452).

* window.c (Fwindow_parameter, Fset_window_parameter): Accept
any window as argument (Bug#12452).
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 92117da8eb0..3ff1a7287d6 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2012-09-16  Martin Rudalics  <rudalics@gmx.at>
+
+	* window.c (Fwindow_parameter, Fset_window_parameter): Accept
+	any window as argument (Bug#12452).
+
 2012-09-16  Jan Djärv  <jan.h.d@swipnet.se>
 
 	* nsfns.m (Fx_open_connection): Move initialization of ns_*_types
diff --git a/src/window.c b/src/window.c
index b3db1292e5c..fbccab8b358 100644
--- a/src/window.c
+++ b/src/window.c
@@ -1855,23 +1855,23 @@ return value is a list of elements of the form (PARAMETER . VALUE).  */)
 DEFUN ("window-parameter", Fwindow_parameter, Swindow_parameter,
        2, 2, 0,
        doc:  /* Return WINDOW's value for PARAMETER.
-WINDOW must be a valid window and defaults to the selected one.  */)
+WINDOW can be any window and defaults to the selected one.  */)
   (Lisp_Object window, Lisp_Object parameter)
 {
   Lisp_Object result;
 
-  result = Fassq (parameter, decode_valid_window (window)->window_parameters);
+  result = Fassq (parameter, decode_any_window (window)->window_parameters);
   return CDR_SAFE (result);
 }
 
 DEFUN ("set-window-parameter", Fset_window_parameter,
        Sset_window_parameter, 3, 3, 0,
        doc: /* Set WINDOW's value of PARAMETER to VALUE.
-WINDOW must be a valid window and defaults to the selected one.
+WINDOW can be any window and defaults to the selected one.
 Return VALUE.  */)
   (Lisp_Object window, Lisp_Object parameter, Lisp_Object value)
 {
-  register struct window *w = decode_valid_window (window);
+  register struct window *w = decode_any_window (window);
   Lisp_Object old_alist_elt;
 
   old_alist_elt = Fassq (parameter, w->window_parameters);