diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d193663ed09..1de8e4af69b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2010-06-12 Helmut Eller <eller.helmut@gmail.com> | ||
| 2 | |||
| 3 | * emacs-lisp/cl-macs.el (destructuring-bind): Bind `bind-enquote', | ||
| 4 | used by cl-do-arglist. (Bug#6408) | ||
| 5 | |||
| 1 | 2010-06-09 Stefan Monnier <monnier@iro.umontreal.ca> | 6 | 2010-06-09 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 7 | ||
| 3 | * emacs-lisp/advice.el (ad-compile-function): | 8 | * emacs-lisp/advice.el (ad-compile-function): |
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 8a60ffdf1fe..3e800c53008 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -432,7 +432,7 @@ It is a list of elements of the form either: | |||
| 432 | ;;;###autoload | 432 | ;;;###autoload |
| 433 | (defmacro destructuring-bind (args expr &rest body) | 433 | (defmacro destructuring-bind (args expr &rest body) |
| 434 | (let* ((bind-lets nil) (bind-forms nil) (bind-inits nil) | 434 | (let* ((bind-lets nil) (bind-forms nil) (bind-inits nil) |
| 435 | (bind-defs nil) (bind-block 'cl-none)) | 435 | (bind-defs nil) (bind-block 'cl-none) (bind-enquote nil)) |
| 436 | (cl-do-arglist (or args '(&aux)) expr) | 436 | (cl-do-arglist (or args '(&aux)) expr) |
| 437 | (append '(progn) bind-inits | 437 | (append '(progn) bind-inits |
| 438 | (list (nconc (list 'let* (nreverse bind-lets)) | 438 | (list (nconc (list 'let* (nreverse bind-lets)) |