diff options
| author | Richard M. Stallman <[email protected]> | 1994-06-22 15:30:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1994-06-22 15:30:42 +0000 |
| commit | 1d08cb509a20afc911cc59aac31238e2cf14ba2d (patch) | |
| tree | ca983cc0481f9ec27e5b18c61b70a5a8add1ef26 /lisp | |
| parent | 7492f5a652acc178f1810cc160136a93414ee861 (diff) | |
(backquote-process): Fix criterion for using FIRSTLIST.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/backquote.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el index 9e1c6c2920..b915e4cbc8 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)) |