Mercurial > emacs
changeset 8007:5b6bbe9478b5
(backquote-process): Fix criterion for using FIRSTLIST.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 22 Jun 1994 15:30:42 +0000 |
parents | 6e58b282df42 |
children | 049bc48732d6 |
files | lisp/emacs-lisp/backquote.el |
diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))