diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-11-07 20:24:14 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-11-07 20:24:14 -0500 |
| commit | 41626722272734aa3a7e4fdfafd3b085133db665 (patch) | |
| tree | 74166b5a62f424e78aabec4ac17f932b77da3b76 /lisp/emacs-lisp | |
| parent | 2b4da3ff4a742a51c036c5186b00ed51f0abe7dd (diff) | |
| download | emacs-41626722272734aa3a7e4fdfafd3b085133db665.tar.gz emacs-41626722272734aa3a7e4fdfafd3b085133db665.tar.bz2 emacs-41626722272734aa3a7e4fdfafd3b085133db665.zip | |
* lisp/emacs-lisp/gv.el (gv-define-simple-setter): Fix last change.
Fixes: debbugs:12812
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/gv.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el index 145c48c670e..38bb6319a03 100644 --- a/lisp/emacs-lisp/gv.el +++ b/lisp/emacs-lisp/gv.el @@ -220,7 +220,8 @@ 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)))) + (cons ',setter (append args (list v))) + v) `(cons ',setter (append args (list val)))))) ;;; Typical operations on generalized variables. |