From f8705f6e3102454bf1e3213956eb3ac8160ff047 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 12 Nov 2012 16:31:15 -0500 Subject: [PATCH] * lisp/emacs-lisp/gv.el (gv-define-simple-setter): One more fix. Fixes: debbugs:12871 --- lisp/ChangeLog | 8 ++++++-- lisp/emacs-lisp/gv.el | 5 +++-- 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 + + * emacs-lisp/gv.el (gv-define-simple-setter): One more fix (bug#12871). + 2012-11-12 Wolfgang Jenkner * 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 - * server.el (server-create-window-system-frame): Improved comment. + * server.el (server-create-window-system-frame): Improve comment. 2012-11-08 Jan Djärv 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. -- 2.39.2