[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99849: Close bug#6408.

[Glenn Morris]

------------------------------------------------------------
revno: 99849
author: Helmut Eller <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: emacs-23
timestamp: Sat 2010-06-12 00:06:15 -0700
message:
  Close bug#6408.
  
  * lisp/emacs-lisp/cl-macs.el (destructuring-bind): Bind `bind-enquote',
  used by cl-do-arglist.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/cl-macs.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-06-09 01:18:31 +0000
+++ b/lisp/ChangeLog    2010-06-12 07:06:15 +0000
@@ -1,3 +1,8 @@
+2010-06-12  Helmut Eller  <address@hidden>
+
+       * emacs-lisp/cl-macs.el (destructuring-bind): Bind `bind-enquote',
+       used by cl-do-arglist.  (Bug#6408)
+
 2010-06-09  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/advice.el (ad-compile-function):

=== modified file 'lisp/emacs-lisp/cl-macs.el'
--- a/lisp/emacs-lisp/cl-macs.el        2010-03-12 03:19:17 +0000
+++ b/lisp/emacs-lisp/cl-macs.el        2010-06-12 07:06:15 +0000
@@ -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))