diff options
| author | Richard M. Stallman | 1994-06-22 15:30:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-06-22 15:30:42 +0000 |
| commit | 1d08cb509a20afc911cc59aac31238e2cf14ba2d (patch) | |
| tree | ca983cc0481f9ec27e5b18c61b70a5a8add1ef26 | |
| parent | 7492f5a652acc178f1810cc160136a93414ee861 (diff) | |
| download | emacs-1d08cb509a20afc911cc59aac31238e2cf14ba2d.tar.gz emacs-1d08cb509a20afc911cc59aac31238e2cf14ba2d.zip | |
(backquote-process): Fix criterion for using FIRSTLIST.
| -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 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." | |||
| 160 | (setq item (backquote-process (car rest))) | 160 | (setq item (backquote-process (car rest))) |
| 161 | (cond | 161 | (cond |
| 162 | ((= (car item) 2) | 162 | ((= (car item) 2) |
| 163 | (if (null firstlist) | 163 | ;; Put the nonspliced items before the first spliced item |
| 164 | ;; into FIRSTLIST. | ||
| 165 | (if (null lists) | ||
| 164 | (setq firstlist list | 166 | (setq firstlist list |
| 165 | list nil)) | 167 | list nil)) |
| 168 | ;; Otherwise, put any preceding nonspliced items into LISTS. | ||
| 166 | (if list | 169 | (if list |
| 167 | (setq lists (cons (backquote-listify list '(0 . nil)) lists))) | 170 | (setq lists (cons (backquote-listify list '(0 . nil)) lists))) |
| 168 | (setq lists (cons (cdr item) lists)) | 171 | (setq lists (cons (cdr item) lists)) |