Function: erc--solo--inliner

erc--solo--inliner is a function defined in erc-common.el.gz.

Signature

(erc--solo--inliner INLINE--FORM LIST-OR-ATOM)

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-common.el.gz
;; Could not find source code, showing raw function object.
#[(inline--form list-or-atom)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp list-or-atom)
	  (list-or-atom
	   (if (macroexp-copyable-p exp) exp
	     (make-symbol "list-or-atom")))
	  (body
	   (list 'if
		 (list 'and (list 'consp list-or-atom)
		       (list 'null (list 'cdr list-or-atom)))
		 (list 'car list-or-atom) list-or-atom)))
       (if (eq list-or-atom exp) body
	 (macroexp-let* (list (list list-or-atom exp)) body)))))
  (t)]