Function: use-package-pin-package--inliner

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

Signature

(use-package-pin-package--inliner INLINE--FORM PACKAGE ARCHIVE)

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 package archive)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((package
	   (cond
	    ((not
	      (or (macroexp-const-p package)
		  (eq (car-safe package) 'function)))
	     (throw 'inline--just-use inline--form))
	    ((consp package) (car (cdr package))) (t package)))
	  (archive
	   (cond
	    ((not
	      (or (macroexp-const-p archive)
		  (eq (car-safe archive) 'function)))
	     (throw 'inline--just-use inline--form))
	    ((consp archive) (car (cdr archive))) (t archive)))
	  (archive-symbol
	   (if (symbolp archive) archive (intern archive)))
	  (archive-name
	   (if (stringp archive) archive (symbol-name archive))))
       (if (use-package-archive-exists-p archive-symbol) nil
	 (warn
	  "Archive '%s' requested for package '%s' is not available"
	  archive-name package))
       (list 'progn (list 'defvar 'package-pinned-packages)
	     (list 'unless
		   (list 'boundp
			 (list 'quote 'package-pinned-packages))
		   (list 'setq 'package-pinned-packages nil))
	     (list 'add-to-list (list 'quote 'package-pinned-packages)
		   (list 'quote (cons package archive-name)))))))
  (t)]