Function: use-package-pin-package

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

Signature

(use-package-pin-package PACKAGE ARCHIVE)

Documentation

Pin PACKAGE to ARCHIVE.

Source Code

;; Defined in /usr/src/emacs/lisp/use-package/use-package-ensure.el.gz
(defun use-package-pin-package (package archive)
  "Pin PACKAGE to ARCHIVE."
  (unless (boundp 'package-pinned-packages)
    (setq package-pinned-packages ()))
  (let ((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)
        (add-to-list 'package-pinned-packages (cons package archive-name))
      (error "Archive '%s' requested for package '%s' is not available"
             archive-name package))
    (unless (bound-and-true-p package--initialized)
      (package-initialize t))))