(frame-parameter) <defsetf>: Make it return the assigned value.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf054e11340eca8f680bfde0392c588e8ac05ca8..7b77fb7e48c6c8ba4f779d05af61f4b1b04f8063 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-04-01  Johan Bockgård  <bojohan@gnu.org>
+
+       * emacs-lisp/cl-macs.el (frame-parameter) <defsetf>: Make it
+       return the assigned value.
+
 2008-04-01  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * abbrev.el (abbrev-mode): Use define-minor-mode.

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 9dc0bbc4abb28d33c408688fa5400a2b00edb6be..5fea4f6ea49032c5f50b72d46e5c577d5ea4f7c1 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -1757,7 +1757,7 @@ Example:
 (defsetf frame-parameters modify-frame-parameters t)
 (defsetf frame-visible-p cl-set-frame-visible-p)
 (defsetf frame-width set-screen-width t)
-(defsetf frame-parameter set-frame-parameter)
+(defsetf frame-parameter set-frame-parameter t)
 (defsetf getenv setenv t)
 (defsetf get-register set-register)
 (defsetf global-key-binding global-set-key)