From: John Wiegley <johnw@newartisans.com>
Date: Mon, 4 Dec 2017 17:39:54 +0000 (-0800)
Subject: Move :preface handling within the code
X-Git-Tag: emacs-29.0.90~1306^2~15^2~156^2~10
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb9d159632;p=emacs.git

Move :preface handling within the code
---

diff --git a/up-core.el b/up-core.el
index 73884196e7f..6994c632ec0 100644
--- a/up-core.el
+++ b/up-core.el
@@ -939,17 +939,6 @@ deferred until the prefix key sequence is pressed."
 (defun use-package-handler/:no-require (name keyword arg rest state)
   (use-package-process-keywords name rest state))
 
-;;;; :preface
-
-(defalias 'use-package-normalize/:preface 'use-package-normalize-forms)
-
-(defun use-package-handler/:preface (name keyword arg rest state)
-  (let ((body (use-package-process-keywords name rest state)))
-    (use-package-concat
-     (when arg
-       `((eval-and-compile ,@arg)))
-     body)))
-
 ;;;; :defines
 
 (defalias 'use-package-normalize/:defines 'use-package-normalize-symlist)
@@ -964,6 +953,17 @@ deferred until the prefix key sequence is pressed."
 (defun use-package-handler/:functions (name keyword arg rest state)
   (use-package-process-keywords name rest state))
 
+;;;; :preface
+
+(defalias 'use-package-normalize/:preface 'use-package-normalize-forms)
+
+(defun use-package-handler/:preface (name keyword arg rest state)
+  (let ((body (use-package-process-keywords name rest state)))
+    (use-package-concat
+     (when arg
+       `((eval-and-compile ,@arg)))
+     body)))
+
 ;;;; :bind, :bind*
 
 (defalias 'use-package-normalize/:bind 'use-package-normalize-binder)