* lisp/emacs-lisp/gv.el (gv-define-simple-setter): One more fix.

Fixes: debbugs:12871

2 files changed, 9 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a927c010724..2ad7230e912 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-11-12  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * emacs-lisp/gv.el (gv-define-simple-setter): One more fix (bug#12871).
+
 2012-11-12  Wolfgang Jenkner  <wjenkner@inode.at>
 
         * ansi-color.el (ansi-color-apply-sequence): Implement SGR codes
@@ -13,7 +17,7 @@
         correctly.
         (python-nav-end-of-defun): Rename from
         python-end-of-defun-function.  Ensure forward movement.
-        (python-info-current-defun): Reimplemented to work as intended
+        (python-info-current-defun): Reimplement to work as intended
         with new fixed python-nav-{end,beginning}-of-defun.  Stop scanning
         parent defuns as soon as possible.
 
@@ -62,7 +66,7 @@
 
 2012-11-09  Jan Djärv  <jan.h.d@swipnet.se>
 
-        * server.el (server-create-window-system-frame): Improved comment.
+        * server.el (server-create-window-system-frame): Improve comment.
 
 2012-11-08  Jan Djärv  <jan.h.d@swipnet.se>
 
diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el
index 38bb6319a03..965fc1c3ef0 100644
--- a/lisp/emacs-lisp/gv.el
+++ b/lisp/emacs-lisp/gv.el
@@ -220,8 +220,9 @@ so as to preserve the semantics of `setf'."
   `(gv-define-setter ,name (val &rest args)
      ,(if fix-return
           `(macroexp-let2 nil v val
-             (cons ',setter (append args (list v)))
-             v)
+             `(progn
+                (,',setter ,@(append args (list v)))
+                ,v))
         `(cons ',setter (append args (list val))))))
 
 ;;; Typical operations on generalized variables.