Function: use-package-vc-install--inliner

use-package-vc-install--inliner is a function defined in use-package-core.el.gz.

Signature

(use-package-vc-install--inliner INLINE--FORM ARG &optional LOCAL-PATH)

Source Code

;; Defined in /usr/src/emacs/lisp/use-package/use-package-core.el.gz
;; Could not find source code, showing raw function object.
#[(inline--form arg &optional local-path)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((val
	   (cond
	    ((not
	      (or (macroexp-const-p arg) (eq (car-safe arg) 'function)))
	     (throw 'inline--just-use inline--form))
	    ((consp arg) (car (cdr arg))) (t arg))))
       (progn
	 (ignore (consp val))
	 (let* ((x23083 (car-safe val)) (x23084 (cdr-safe val)))
	   (progn
	     (ignore (consp x23084))
	     (let*
		 ((x23085 (car-safe x23084))
		  (x23086 (cdr-safe x23084)))
	       (progn
		 (ignore (consp x23086))
		 (let*
		     ((x23087 (car-safe x23086))
		      (x23088 (cdr-safe x23086)))
		   (progn
		     (ignore (null x23088))
		     (let ((name x23083) (opts x23085) (rev x23087))
		       (let*
			   ((local-path
			     (cond
			      ((not
				(or (macroexp-const-p local-path)
				    (eq (car-safe local-path)
					'function)))
			       (throw 'inline--just-use inline--form))
			      ((consp local-path)
			       (car (cdr local-path)))
			      (t local-path)))
			    (spec (if opts (cons name opts) name)))
			 (list 'unless
			       (list 'package-installed-p
				     (list 'quote name))
			       (if local-path
				   (progn
				     (warn
				      "Support for :vc with :load-path is obsolete.  Use the User Lisp directory instead.")
				     (list 'with-suppressed-warnings
					   (list
					    (list 'obsolete
						  'package-vc-install-from-checkout))
					   (list
					    'package-vc-install-from-checkout
					    (list 'quote local-path)
					    (list 'quote
						  (symbol-name name)))))
				 (list 'package-vc-install
				       (list 'quote spec)
				       (list 'quote rev))))))))))))))))
  (t)]