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 |