aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/emacs-lisp/backquote.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el
index 58cc760e338..c08ea44ee59 100644
--- a/lisp/emacs-lisp/backquote.el
+++ b/lisp/emacs-lisp/backquote.el
@@ -149,7 +149,7 @@ will result in errors that will show up very late."
149 ;;; glue what I've already done to the end, than to to prepare that 149 ;;; glue what I've already done to the end, than to to prepare that
150 ;;; something and go back to put things together. 150 ;;; something and go back to put things together.
151(defun bq-make-maker (form) 151(defun bq-make-maker (form)
152 "Given one argument, a `mostly quoted' object, produces a maker. 152 "Given argument FORM, a `mostly quoted' object, produces a maker.
153See backquote.el for details" 153See backquote.el for details"
154 (let ((tailmaker (quote nil)) (qc 0) (ec 0) (state nil)) 154 (let ((tailmaker (quote nil)) (qc 0) (ec 0) (state nil))
155 (mapcar 'bq-iterative-list-builder (reverse form)) 155 (mapcar 'bq-iterative-list-builder (reverse form))
@@ -195,9 +195,9 @@ See backquote.el for details"
195;;; This maintains the invariant that (cons state tailmaker) is the 195;;; This maintains the invariant that (cons state tailmaker) is the
196 ;;; maker for the elements of the tail we've eaten so far. 196 ;;; maker for the elements of the tail we've eaten so far.
197(defun bq-iterative-list-builder (form) 197(defun bq-iterative-list-builder (form)
198 "Called by `bq-make-maker'. Adds a new item form to tailmaker, 198 "Adds a new item form to tailmaker changing state if need be, so tailmaker
199changing state if need be, so tailmaker and state constitute a recipe 199and state constitute a recipe for making the list so far. Called by
200for making the list so far." 200`bq-make-maker'."
201 (cond ((atom form) 201 (cond ((atom form)
202 (funcall (bq-cadr (assq state bq-quotefns)) form)) 202 (funcall (bq-cadr (assq state bq-quotefns)) form))
203 ((memq (car form) backquote-unquote) 203 ((memq (car form) backquote-unquote)