Function: inline--dont-quote

inline--dont-quote is a byte-compiled function defined in inline.el.gz.

Signature

(inline--dont-quote EXP)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/inline.el.gz
(defun inline--dont-quote (exp)
  (pcase exp
    (`(,'\, ,e) e)
    (`'(,'\, ,e) e)
    (`#'(,'\, ,e) e)
    ((pred consp)
     (let ((args ()))
       (while (and (consp exp) (not (eq '\, (car exp))))
         (push (inline--dont-quote (pop exp)) args))
       (setq args (nreverse args))
       (if (null exp)
           args
         `(apply #',(car args) ,@(cdr args) ,(inline--dont-quote exp)))))
    (_ exp)))