Function: use-package-ensure-elpa--inliner

use-package-ensure-elpa--inliner is a function defined in use-package-ensure.el.gz.

Signature

(use-package-ensure-elpa--inliner INLINE--FORM NAME ARGS STATE &optional _NO-REFRESH)

Source Code

;; Defined in /usr/src/emacs/lisp/use-package/use-package-ensure.el.gz
;; Could not find source code, showing raw function object.
#[(inline--form name args state &optional _no-refresh)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((name
	   (cond
	    ((not
	      (or (macroexp-const-p name)
		  (eq (car-safe name) 'function)))
	     (throw 'inline--just-use inline--form))
	    ((consp name) (car (cdr name))) (t name)))
	  (args
	   (cond
	    ((not
	      (or (macroexp-const-p args)
		  (eq (car-safe args) 'function)))
	     (throw 'inline--just-use inline--form))
	    ((consp args) (car (cdr args))) (t args))))
       (if args
	   (progn
	     (let*
		 ((ensure
		   (car-safe (prog1 args (setq args (cdr args)))))
		  (package
		   (or
		    (and (eq ensure t) (use-package-as-symbol name))
		    ensure))
		  (pin
		   (if (consp package)
		       (prog1 package (setq package (car package))))))
	       (list 'progn
		     (if pin
			 (list 'use-package-pin-package
			       (list 'quote (car pin))
			       (list 'quote (cdr pin))))
		     (if package
			 (list 'unless
			       (list 'package-installed-p
				     (list 'quote package))
			       (list 'use-package-ensure-installed
				     (list 'quote package))))
		     (list 'use-package-ensure-elpa (list 'quote name)
			   (list 'quote args) (list 'quote state)))))))))
  (t)]