From 1d08cb509a20afc911cc59aac31238e2cf14ba2d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 22 Jun 1994 15:30:42 +0000 Subject: [PATCH] (backquote-process): Fix criterion for using FIRSTLIST. --- lisp/emacs-lisp/backquote.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el index 9e1c6c29203..b915e4cbc80 100644 --- 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)) -- 2.39.5