Function: package-vc-p--inliner

package-vc-p--inliner is a function defined in package.el.gz.

Signature

(package-vc-p--inliner INLINE--FORM PKG-DESC)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/package.el.gz
;; Could not find source code, showing raw function object.
#[(inline--form pkg-desc)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp pkg-desc)
	  (pkg-desc
	   (if (macroexp-copyable-p exp) exp (make-symbol "pkg-desc")))
	  (body
	   (list 'eq (list 'package-desc-kind pkg-desc)
		 (list 'quote 'vc))))
       (if (eq pkg-desc exp) body
	 (macroexp-let* (list (list pkg-desc exp)) body)))))
  (t)]