[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/backquote.el

[Miles Bader]

Index: emacs/lisp/emacs-lisp/backquote.el
diff -c emacs/lisp/emacs-lisp/backquote.el:1.32 
emacs/lisp/emacs-lisp/backquote.el:1.33
*** emacs/lisp/emacs-lisp/backquote.el:1.32     Wed Nov  6 00:07:33 2002
--- emacs/lisp/emacs-lisp/backquote.el  Tue Feb  4 07:53:34 2003
***************
*** 142,148 ****
        ;; Scan this list-level, setting LISTS to a list of forms,
        ;; each of which produces a list of elements
        ;; that should go in this level.
!       ;; The order of LISTS is backwards. 
        ;; If there are non-splicing elements (constant or variable)
        ;; at the beginning, put them in FIRSTLIST,
        ;; as a list of tagged values (TAG . FORM).
--- 142,148 ----
        ;; Scan this list-level, setting LISTS to a list of forms,
        ;; each of which produces a list of elements
        ;; that should go in this level.
!       ;; The order of LISTS is backwards.
        ;; If there are non-splicing elements (constant or variable)
        ;; at the beginning, put them in FIRSTLIST,
        ;; as a list of tagged values (TAG . FORM).
***************
*** 172,178 ****
        (if (or rest list)
          (setq lists (cons (backquote-listify list (backquote-process rest))
                            lists)))
!       ;; Turn LISTS into a form that produces the combined list. 
        (setq expression
            (if (or (cdr lists)
                    (eq (car-safe (car lists)) backquote-splice-symbol))
--- 172,178 ----
        (if (or rest list)
          (setq lists (cons (backquote-listify list (backquote-process rest))
                            lists)))
!       ;; Turn LISTS into a form that produces the combined list.
        (setq expression
            (if (or (cdr lists)
                    (eq (car-safe (car lists)) backquote-splice-symbol))