From: John Wiegley <johnw@newartisans.com>
Date: Sun, 15 Mar 2015 07:22:17 +0000 (-0500)
Subject: Add :preface, occurring before everything except :disabled
X-Git-Tag: emacs-29.0.90~1306^2~15^2~394
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f637380fed;p=emacs.git

Add :preface, occurring before everything except :disabled

This can be used to establish function and variable definitions that
will 1) make the byte-compiler happy (it won't complain about functions
whose definitions are unknown because you have them within a guard
block), and 2) allow you to define code that can be used in an `:if`
test.
---

diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el
index b3bf871576f..56c8a4c2e6d 100644
--- a/lisp/use-package/use-package.el
+++ b/lisp/use-package/use-package.el
@@ -259,7 +259,7 @@ then the expanded macros do their job silently."
            (use-package-as-one (symbol-name head) args
              (apply-partially #'use-package-normalize-diminish name-symbol)))
 
-          ((or :init :config :idle)
+          ((or :preface :init :config :idle)
            (use-package-normalize-form (symbol-name head) args))
 
           (:idle-priority
@@ -363,6 +363,8 @@ then the expanded macros do their job silently."
 
     ;; Return the main body of the macro
     (use-package-cat-maybes
+     (list (plist-get args :preface))
+
      ;; Setup the load-path
      (mapcar #'(lambda (path) `(add-to-list 'load-path ,path))
              (plist-get args :load-path))