[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r110796: * lisp/emacs-lisp/cl.el (
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r110796: * lisp/emacs-lisp/cl.el (defsetf): Pass the third arg to |
Date: |
Tue, 06 Nov 2012 22:14:27 -0500 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 110796
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=12812
committer: Stefan Monnier <address@hidden>
branch nick: emacs-24
timestamp: Tue 2012-11-06 22:14:27 -0500
message:
* lisp/emacs-lisp/cl.el (defsetf): Pass the third arg to
gv-define-simple-setter.
modified:
lisp/ChangeLog
lisp/emacs-lisp/cl.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-11-06 01:49:44 +0000
+++ b/lisp/ChangeLog 2012-11-07 03:14:27 +0000
@@ -1,3 +1,8 @@
+2012-11-07 Stefan Monnier <address@hidden>
+
+ * emacs-lisp/cl.el (defsetf): Pass the third arg to
+ gv-define-simple-setter (bug#12812).
+
2012-11-06 Stefan Monnier <address@hidden>
* woman.el (woman-decode-region): Disable adaptive-fill when rendering
=== modified file 'lisp/emacs-lisp/cl.el'
--- a/lisp/emacs-lisp/cl.el 2012-10-30 07:34:37 +0000
+++ b/lisp/emacs-lisp/cl.el 2012-11-07 03:14:27 +0000
@@ -597,7 +597,7 @@
(cl-function
(lambda (,@(car args) ,@arg1) ,@(cdr args)))
do args)))
- `(gv-define-simple-setter ,name ,arg1)))
+ `(gv-define-simple-setter ,name ,arg1 ,(car args))))
;; FIXME: CL used to provide a setf method for `apply', but I haven't been able
;; to find a case where it worked. The code below tries to handle it as well.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-24 r110796: * lisp/emacs-lisp/cl.el (defsetf): Pass the third arg to,
Stefan Monnier <=