Function: cond*-un-backquote-list*

cond*-un-backquote-list* is a byte-compiled function defined in cond-star.el.gz.

Signature

(cond*-un-backquote-list* ARGS)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cond-star.el.gz
;; Convert the arguments in a form that calls `backquote-list*'
;; into equivalent args to pass to `list'.
;; We assume the last argument has the form 'LIST.
;; That means quotify each of that list's elements,
;; and preserve the other arguments in front of them.
(defun cond*-un-backquote-list* (args)
  (if (cdr args)
      (cons (car args)
            (cond*-un-backquote-list* (cdr args)))
    (mapcar (lambda (x) (list 'quote x)) (cadr (car args)))))