[Emacs-diffs] /srv/bzr/emacs/emacs-24 r110855: * lisp/emacs-lisp/gv.el (gv-define-simple-setter): One more fix.

[Stefan Monnier]

------------------------------------------------------------
revno: 110855
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=12871
committer: Stefan Monnier <address@hidden>
branch nick: emacs-24
timestamp: Mon 2012-11-12 16:31:15 -0500
message:
  * lisp/emacs-lisp/gv.el (gv-define-simple-setter): One more fix.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/gv.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-11-12 17:12:33 +0000
+++ b/lisp/ChangeLog    2012-11-12 21:31:15 +0000
@@ -1,3 +1,7 @@
+2012-11-12  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/gv.el (gv-define-simple-setter): One more fix (bug#12871).
+
 2012-11-12  Wolfgang Jenkner  <address@hidden>
 
        * 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  <address@hidden>
 
-       * server.el (server-create-window-system-frame): Improved comment.
+       * server.el (server-create-window-system-frame): Improve comment.
 
 2012-11-08  Jan Djärv  <address@hidden>
 

=== modified file 'lisp/emacs-lisp/gv.el'
--- a/lisp/emacs-lisp/gv.el     2012-11-08 01:24:14 +0000
+++ b/lisp/emacs-lisp/gv.el     2012-11-12 21:31:15 +0000
@@ -220,8 +220,9 @@
   `(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.