Function: ebrowse-ts-p--cmacro

ebrowse-ts-p--cmacro is a function defined in ebrowse.el.gz.

Signature

(ebrowse-ts-p--cmacro _CL-WHOLE-ARG CL-X)

Documentation

compiler-macro for inlining ebrowse-ts-p.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebrowse.el.gz
;; Closure converted to defun by helpful.
(defun ebrowse-ts-p--cmacro
    (_cl-whole-arg cl-x)
  "compiler-macro for inlining `ebrowse-ts-p'."
  (cl-block ebrowse-ts-p--cmacro
    (cl--defsubst-expand
     '(cl-x)
     '(cl-block ebrowse-ts-p
	(and
	 (vectorp cl-x)
	 (>=
	  (length cl-x)
	  11)
	 (memq
	  (aref cl-x 0)
	  cl-struct-ebrowse-ts-tags)
	 t))
     nil nil nil cl-x)))