Mercurial > emacs
comparison lisp/emacs-lisp/backquote.el @ 340:36bd3a9f20e2
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Fri, 19 Jul 1991 20:39:25 +0000 |
parents | 7e4c7ef44243 |
children | 4cd7543be581 |
comparison
equal
deleted
inserted
replaced
339:1c12a86018cd | 340:36bd3a9f20e2 |
---|---|
149 See backquote.el for details" | 149 See backquote.el for details" |
150 (let ((tailmaker (quote nil)) (qc 0) (ec 0) (state nil)) | 150 (let ((tailmaker (quote nil)) (qc 0) (ec 0) (state nil)) |
151 (mapcar 'bq-iterative-list-builder (reverse form)) | 151 (mapcar 'bq-iterative-list-builder (reverse form)) |
152 (and state | 152 (and state |
153 (cond ((eq state 'quote) | 153 (cond ((eq state 'quote) |
154 (list state tailmaker)) | 154 (list state (if (equal form tailmaker) form tailmaker))) |
155 ((= (length tailmaker) 1) | 155 ((= (length tailmaker) 1) |
156 (funcall (bq-cadr (assq state bq-singles)) tailmaker)) | 156 (funcall (bq-cadr (assq state bq-singles)) tailmaker)) |
157 (t (cons state tailmaker)))))) | 157 (t (cons state tailmaker)))))) |
158 | 158 |
159 ;;; There are exceptions - we wouldn't want to call append of one | 159 ;;; There are exceptions - we wouldn't want to call append of one |