Function: erc--phantom-server-user-p--inliner

erc--phantom-server-user-p--inliner is a function defined in erc-button.el.gz.

Signature

(erc--phantom-server-user-p--inliner INLINE--FORM X)

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-button.el.gz
;; Could not find source code, showing raw function object.
#[(inline--form x)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp x)
	  (x (if (macroexp-copyable-p exp) exp (make-symbol "x")))
	  (body
	   (list 'and (list 'vectorp x) (list '>= (list 'length x) 7)
		 (list 'memq (list 'aref x 0)
		       'cl-struct-erc--phantom-server-user-tags)
		 t)))
       (if (eq x exp) body (macroexp-let* (list (list x exp)) body)))))
  (cl-struct-erc--phantom-server-user-tags
   cl-struct-erc--phantom-server-user-tags)]