# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1274301477 -10800
# Node ID 665253a7d3f65c922ce79fc4357e8f7ba644f103
# Parent  a0b236a315d57af78948d54ab5d3a644d864d3f4
* emacs-lisp/cl-macs.el (window-parameter): Add defsetf with
set-window-parameter.

diff -r a0b236a315d5 -r 665253a7d3f6 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed May 19 20:56:18 2010 +0200
+++ b/lisp/ChangeLog	Wed May 19 23:37:57 2010 +0300
@@ -1,3 +1,8 @@
+2010-05-19  Juri Linkov  <juri@jurta.org>
+
+	* emacs-lisp/cl-macs.el (window-parameter): Add defsetf with
+	set-window-parameter.
+
 2010-05-19  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp.el (tramp-methods): Add `tramp-async-args' attribute
diff -r a0b236a315d5 -r 665253a7d3f6 lisp/emacs-lisp/cl-macs.el
--- a/lisp/emacs-lisp/cl-macs.el	Wed May 19 20:56:18 2010 +0200
+++ b/lisp/emacs-lisp/cl-macs.el	Wed May 19 23:37:57 2010 +0300
@@ -1813,6 +1813,7 @@
 (defsetf window-height () (store)
   (list 'progn (list 'enlarge-window (list '- store '(window-height))) store))
 (defsetf window-hscroll set-window-hscroll)
+(defsetf window-parameter set-window-parameter)
 (defsetf window-point set-window-point)
 (defsetf window-start set-window-start)
 (defsetf window-width () (store)