[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/backquote.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/backquote.el |
Date: |
Tue, 04 Feb 2003 07:53:36 -0500 |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/backquote.el,
Juanma Barranquero <=