[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r110855: * lisp/emacs-lisp/gv.el (
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r110855: * lisp/emacs-lisp/gv.el (gv-define-simple-setter): One more fix. |
Date: |
Mon, 12 Nov 2012 16:31:15 -0500 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-24 r110855: * lisp/emacs-lisp/gv.el (gv-define-simple-setter): One more fix.,
Stefan Monnier <=