From fb9d1596326cf2d1c4472eabb36f50d40ca37cfb Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 4 Dec 2017 09:39:54 -0800 Subject: [PATCH] Move :preface handling within the code --- up-core.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) 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) -- 2.39.2