(backquote-process): Fix criterion for using FIRSTLIST.

diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el
index 9e1c6c2..b915e4c 100644 (file)
--- a/lisp/emacs-lisp/backquote.el
+++ b/lisp/emacs-lisp/backquote.el
@@ -160,9 +160,12 @@ Vectors work just like lists.  Nested backquotes are permitted."
        (setq item (backquote-process (car rest)))
        (cond
         ((= (car item) 2)
-         (if (null firstlist)
+         ;; Put the nonspliced items before the first spliced item
+         ;; into FIRSTLIST.
+         (if (null lists)
              (setq firstlist list
                    list nil))
+         ;; Otherwise, put any preceding nonspliced items into LISTS.
          (if list
              (setq lists (cons (backquote-listify list '(0 . nil)) lists)))
          (setq lists (cons (cdr item) lists))