mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

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

Browse Source 
Fixes: debbugs:12871
This commit is contained in:
Stefan Monnier 2012-11-12 16:31:15 -05:00
parent 0f5414fca8
commit f8705f6e31
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -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>

5
lisp/emacs-lisp/gv.el
View File

@ -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.