From 10fd4577d012789348a79c0e3ffedf54089e1ec4 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Tue, 5 Dec 2017 10:28:28 -0800
Subject: [PATCH] Add missing autoload cookies

Fixes https://github.com/jwiegley/use-package/issues/555
---
 lisp/use-package/use-package-bind-key.el              | 7 +++++++
 lisp/use-package/use-package-chords.el                | 2 ++
 lisp/use-package/use-package-delight.el               | 2 ++
 lisp/use-package/use-package-diminish.el              | 2 ++
 lisp/use-package/use-package-ensure-system-package.el | 2 ++
 lisp/use-package/use-package-ensure.el                | 2 ++
 6 files changed, 17 insertions(+)

diff --git a/lisp/use-package/use-package-bind-key.el b/lisp/use-package/use-package-bind-key.el
index 5d1860b4e13..54389faf346 100644
--- a/lisp/use-package/use-package-bind-key.el
+++ b/lisp/use-package/use-package-bind-key.el
@@ -83,9 +83,12 @@ deferred until the prefix key sequence is pressed."
 
 ;;;; :bind, :bind*
 
+;;;###autoload
 (defalias 'use-package-normalize/:bind 'use-package-normalize-binder)
+;;;###autoload
 (defalias 'use-package-normalize/:bind* 'use-package-normalize-binder)
 
+;;;###autoload
 (defun use-package-handler/:bind
     (name keyword args rest state &optional bind-macro)
   (cl-destructuring-bind (nargs . commands)
@@ -104,9 +107,12 @@ deferred until the prefix key sequence is pressed."
 
 ;;;; :bind-keymap, :bind-keymap*
 
+;;;###autoload
 (defalias 'use-package-normalize/:bind-keymap 'use-package-normalize-binder)
+;;;###autoload
 (defalias 'use-package-normalize/:bind-keymap* 'use-package-normalize-binder)
 
+;;;###autoload
 (defun use-package-handler/:bind-keymap
     (name keyword arg rest state &optional override)
   (use-package-concat
@@ -124,6 +130,7 @@ deferred until the prefix key sequence is pressed."
                     ',(cdr binding) ',(use-package-as-symbol name)
                     ,override)))) arg)))))
 
+;;;###autoload
 (defun use-package-handler/:bind-keymap* (name keyword arg rest state)
   (use-package-handler/:bind-keymap name keyword arg rest state t))
 
diff --git a/lisp/use-package/use-package-chords.el b/lisp/use-package/use-package-chords.el
index 023a9c6b2ad..8cdd30990cb 100644
--- a/lisp/use-package/use-package-chords.el
+++ b/lisp/use-package/use-package-chords.el
@@ -23,8 +23,10 @@
 (require 'use-package)
 (require 'bind-chord)
 
+;;;###autoload
 (defalias 'use-package-normalize/:chords 'use-package-normalize-binder)
 
+;;;###autoload
 (defun use-package-handler/:chords (name keyword arg rest state)
   "Handler for `:chords' keyword in `use-package'."
   (let* ((commands (remq nil (mapcar #'(lambda (arg)
diff --git a/lisp/use-package/use-package-delight.el b/lisp/use-package/use-package-delight.el
index 3617f9aac58..625cc5a5554 100644
--- a/lisp/use-package/use-package-delight.el
+++ b/lisp/use-package/use-package-delight.el
@@ -51,6 +51,7 @@
          (use-package-error
           ":delight expects `delight' arguments or a list of them"))))
 
+;;;###autoload
 (defun use-package-normalize/:delight (name keyword args)
   "Normalize arguments to delight."
   (cond ((null args)
@@ -75,6 +76,7 @@
                 (list args)
               args)))))
 
+;;;###autoload
 (defun use-package-handler/:delight (name keyword args rest state)
   (let ((body (use-package-process-keywords name rest state)))
     (use-package-concat
diff --git a/lisp/use-package/use-package-diminish.el b/lisp/use-package/use-package-diminish.el
index 089c62ddeb3..77708ef396c 100644
--- a/lisp/use-package/use-package-diminish.el
+++ b/lisp/use-package/use-package-diminish.el
@@ -56,10 +56,12 @@
      (concat label " wants a string, symbol, "
              "(symbol . string) or list of these")))))
 
+;;;###autoload
 (defun use-package-normalize/:diminish (name keyword args)
   (use-package-as-one (symbol-name keyword) args
     (apply-partially #'use-package-normalize-diminish name) t))
 
+;;;###autoload
 (defun use-package-handler/:diminish (name keyword arg rest state)
   (let ((body (use-package-process-keywords name rest state)))
     (use-package-concat
diff --git a/lisp/use-package/use-package-ensure-system-package.el b/lisp/use-package/use-package-ensure-system-package.el
index 36a614d47c3..0fae57aff76 100644
--- a/lisp/use-package/use-package-ensure-system-package.el
+++ b/lisp/use-package/use-package-ensure-system-package.el
@@ -50,6 +50,7 @@
     (cons arg (use-package-ensure-system-package-install-command (symbol-name arg))))
    ((consp arg) arg)))
 
+;;;###autoload
 (defun use-package-normalize/:ensure-system-package (name-symbol keyword args)
   "Turn `arg' into a list of cons-es of (`package-name' . `install-command')."
   (use-package-only-one (symbol-name keyword) args
@@ -60,6 +61,7 @@
        (t
         (list (use-package-ensure-system-package-consify arg)))))))
 
+;;;###autoload
 (defun use-package-handler/:ensure-system-package (name keyword arg rest state)
   "Execute the handler for `:ensure-system-package' keyword in `use-package'."
   (let ((body (use-package-process-keywords name rest state)))
diff --git a/lisp/use-package/use-package-ensure.el b/lisp/use-package/use-package-ensure.el
index 9cf94419d8a..1c9cd08ff19 100644
--- a/lisp/use-package/use-package-ensure.el
+++ b/lisp/use-package/use-package-ensure.el
@@ -132,6 +132,7 @@ manually updated package."
 
 (defvar package-archive-contents)
 
+;;;###autoload
 (defun use-package-normalize/:ensure (name keyword args)
   (if (null args)
       (list t)
@@ -180,6 +181,7 @@ manually updated package."
                                        name (error-message-string err))
                                :error)))))))))
 
+;;;###autoload
 (defun use-package-handler/:ensure (name keyword ensure rest state)
   (let* ((body (use-package-process-keywords name rest state)))
     ;; We want to avoid installing packages when the `use-package' macro is
-- 
2.39.2