(backquote-delay-process): Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8e39c452f2db3ceade6511ce490fd9900adeb724..7f3982626fd432435e52e0fde05122c6031d9dda 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el
index 6daaf001433a985f97af8d0305076b8b6e513fb1..8b966f516260c011dc3f228d0806e8d5de6995c8 100644 (file)
--- a/lisp/emacs-lisp/backquote.el
+++ b/lisp/emacs-lisp/backquote.el
@@ -121,9 +121,8 @@ Vectors work just like lists.  Nested backquotes are permitted."
 (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))))