summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2010-06-16 16:08:41 -0400
committerStefan Monnier <monnier@iro.umontreal.ca>2010-06-16 16:08:41 -0400
commit2a64315a111fb4da67e9c40c9b69045c4f63d619 (patch)
tree2e7ba99465f6eb5eae64361767af5bc5fff7aca4 /lisp/emacs-lisp
parent288cf4e907c0350eb24824016763bddd09df8ea8 (diff)
parent36901266a8acb83880fefee50c93abb09f64533b (diff)
downloademacs-2a64315a111fb4da67e9c40c9b69045c4f63d619.tar.gz
emacs-2a64315a111fb4da67e9c40c9b69045c4f63d619.tar.bz2
emacs-2a64315a111fb4da67e9c40c9b69045c4f63d619.zip
Merge from emacs-23
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/cl-macs.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 444178edb0c..694a06f8338 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -438,7 +438,7 @@ It is a list of elements of the form either:
;;;###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))