# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1276326375 25200
# Node ID 79b2da2db690cbdd89ddec220ada229e6708cf81
# Parent  5514cae6c02e8d6a1335078e3fdd5e7c6a4283d8
Close bug#6408.

* lisp/emacs-lisp/cl-macs.el (destructuring-bind): Bind `bind-enquote',
used by cl-do-arglist.

diff -r 5514cae6c02e -r 79b2da2db690 lisp/ChangeLog
--- 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):
diff -r 5514cae6c02e -r 79b2da2db690 lisp/emacs-lisp/cl-macs.el
--- 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))