diff options
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)) |