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
;; Closure converted to defun by helpful.
(defun package-vc-p--inliner
    (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)))))