# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 772299042 0
# Node ID 5b6bbe9478b587dc9f0499f94c2cbade5231fe78
# Parent  6e58b282df42eb4e7253b26d4c0b286f0ba1b3d7
(backquote-process): Fix criterion for using FIRSTLIST.

diff -r 6e58b282df42 -r 5b6bbe9478b5 lisp/emacs-lisp/backquote.el
--- a/lisp/emacs-lisp/backquote.el	Wed Jun 22 05:16:22 1994 +0000
+++ b/lisp/emacs-lisp/backquote.el	Wed Jun 22 15:30:42 1994 +0000
@@ -160,9 +160,12 @@
 	(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))