# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1187723365 0
# Node ID eb7052b9d8b13816cc75e3ad435cdf0f2af541df
# Parent  b86e73d7c635d8a571db6d8812fcf7abeb337a8c
(backquote-delay-process): Fix last change.

diff -r b86e73d7c635 -r eb7052b9d8b1 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Aug 21 18:22:03 2007 +0000
+++ b/lisp/ChangeLog	Tue Aug 21 19:09:25 2007 +0000
@@ -1,5 +1,7 @@
 2007-08-21  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* emacs-lisp/backquote.el (backquote-delay-process): Fix last change.
+
 	* progmodes/ada-mode.el: Fix up comment style in header.
 	(ada-check-emacs-version): Remove.
 	(ada-mode): Set parse-sexp-* even if they don't exist: can't hurt.
diff -r b86e73d7c635 -r eb7052b9d8b1 lisp/emacs-lisp/backquote.el
--- a/lisp/emacs-lisp/backquote.el	Tue Aug 21 18:22:03 2007 +0000
+++ b/lisp/emacs-lisp/backquote.el	Tue Aug 21 19:09:25 2007 +0000
@@ -121,9 +121,8 @@
 (defun backquote-delay-process (s level)
   "Process a (un|back|splice)quote inside a backquote.
 This simply recurses through the body."
-  (let ((exp (backquote-listify (list (backquote-process (nth 1 s) level)
-                                      (cons 0 (list 'quote (car s))))
-                                '(0))))
+  (let ((exp (backquote-listify (list (cons 0 (list 'quote (car s))))
+                                (backquote-process (cdr s) level))))
     (if (eq (car-safe exp) 'quote)
         (cons 0 (list 'quote s))
       (cons 1 exp))))