From: Phillip Lord <phillip.lord@russet.org.uk>
Date: Wed, 20 Jan 2016 22:02:26 +0000 (+0000)
Subject: Add new option `-always-pin'
X-Git-Tag: emacs-29.0.90~1306^2~15^2~321^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f4a01f3e00;p=emacs.git

Add new option `-always-pin'

`use-package-always-pin' allows a default archive (or manual) to be
specified for all use-package statements, unless explicitly overridden.
---

diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el
index a359e946378..a76b0473d7e 100644
--- a/lisp/use-package/use-package.el
+++ b/lisp/use-package/use-package.el
@@ -71,6 +71,11 @@ then the expanded macros do their job silently."
   :type 'sexp
   :group 'use-package)
 
+(defcustom use-package-always-pin nil
+  "Treat every package as though it had specified `:pin SYM."
+  :type 'symbol
+  :group 'use-package)
+
 (defcustom use-package-minimum-reported-time 0.1
   "Minimal load time that will be reported.
 
@@ -1075,6 +1080,11 @@ this file.  Usage:
                    (if use-package-always-ensure
                        (use-package-plist-maybe-put
                         args0 :ensure use-package-always-ensure)
+                     args0)))
+           (args* (use-package-sort-keywords
+                   (if use-package-always-pin
+                       (use-package-plist-maybe-put
+                        args* :pin use-package-always-pin)
                      args0))))
 
       ;; When byte-compiling, pre-load the package so all its symbols are in