Mercurial > emacs
changeset 108997:79b2da2db690
Close bug#6408.
* lisp/emacs-lisp/cl-macs.el (destructuring-bind): Bind `bind-enquote',
used by cl-do-arglist.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 12 Jun 2010 00:06:15 -0700 |
| parents | 5514cae6c02e |
| children | aafb405c254e |
| files | lisp/ChangeLog lisp/emacs-lisp/cl-macs.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Jun 09 22:09:27 2010 -0700 +++ b/lisp/ChangeLog Sat Jun 12 00:06:15 2010 -0700 @@ -1,3 +1,8 @@ +2010-06-12 Helmut Eller <eller.helmut@gmail.com> + + * emacs-lisp/cl-macs.el (destructuring-bind): Bind `bind-enquote', + used by cl-do-arglist. (Bug#6408) + 2010-06-09 Stefan Monnier <monnier@iro.umontreal.ca> * emacs-lisp/advice.el (ad-compile-function):
--- a/lisp/emacs-lisp/cl-macs.el Wed Jun 09 22:09:27 2010 -0700 +++ b/lisp/emacs-lisp/cl-macs.el Sat Jun 12 00:06:15 2010 -0700 @@ -432,7 +432,7 @@ ;;;###autoload (defmacro destructuring-bind (args expr &rest body) (let* ((bind-lets nil) (bind-forms nil) (bind-inits nil) - (bind-defs nil) (bind-block 'cl-none)) + (bind-defs nil) (bind-block 'cl-none) (bind-enquote nil)) (cl-do-arglist (or args '(&aux)) expr) (append '(progn) bind-inits (list (nconc (list 'let* (nreverse bind-lets))