Add missing autoload cookies

Fixes https://github.com/jwiegley/use-package/issues/555
This commit is contained in:
John Wiegley 2017-12-05 10:28:28 -08:00
parent f037c2daeb
commit 10fd4577d0
6 changed files with 17 additions and 0 deletions

View file

@ -83,9 +83,12 @@ deferred until the prefix key sequence is pressed."
;;;; :bind, :bind* ;;;; :bind, :bind*
;;;###autoload
(defalias 'use-package-normalize/:bind 'use-package-normalize-binder) (defalias 'use-package-normalize/:bind 'use-package-normalize-binder)
;;;###autoload
(defalias 'use-package-normalize/:bind* 'use-package-normalize-binder) (defalias 'use-package-normalize/:bind* 'use-package-normalize-binder)
;;;###autoload
(defun use-package-handler/:bind (defun use-package-handler/:bind
(name keyword args rest state &optional bind-macro) (name keyword args rest state &optional bind-macro)
(cl-destructuring-bind (nargs . commands) (cl-destructuring-bind (nargs . commands)
@ -104,9 +107,12 @@ deferred until the prefix key sequence is pressed."
;;;; :bind-keymap, :bind-keymap* ;;;; :bind-keymap, :bind-keymap*
;;;###autoload
(defalias 'use-package-normalize/:bind-keymap 'use-package-normalize-binder) (defalias 'use-package-normalize/:bind-keymap 'use-package-normalize-binder)
;;;###autoload
(defalias 'use-package-normalize/:bind-keymap* 'use-package-normalize-binder) (defalias 'use-package-normalize/:bind-keymap* 'use-package-normalize-binder)
;;;###autoload
(defun use-package-handler/:bind-keymap (defun use-package-handler/:bind-keymap
(name keyword arg rest state &optional override) (name keyword arg rest state &optional override)
(use-package-concat (use-package-concat
@ -124,6 +130,7 @@ deferred until the prefix key sequence is pressed."
',(cdr binding) ',(use-package-as-symbol name) ',(cdr binding) ',(use-package-as-symbol name)
,override)))) arg))))) ,override)))) arg)))))
;;;###autoload
(defun use-package-handler/:bind-keymap* (name keyword arg rest state) (defun use-package-handler/:bind-keymap* (name keyword arg rest state)
(use-package-handler/:bind-keymap name keyword arg rest state t)) (use-package-handler/:bind-keymap name keyword arg rest state t))

View file

@ -23,8 +23,10 @@
(require 'use-package) (require 'use-package)
(require 'bind-chord) (require 'bind-chord)
;;;###autoload
(defalias 'use-package-normalize/:chords 'use-package-normalize-binder) (defalias 'use-package-normalize/:chords 'use-package-normalize-binder)
;;;###autoload
(defun use-package-handler/:chords (name keyword arg rest state) (defun use-package-handler/:chords (name keyword arg rest state)
"Handler for `:chords' keyword in `use-package'." "Handler for `:chords' keyword in `use-package'."
(let* ((commands (remq nil (mapcar #'(lambda (arg) (let* ((commands (remq nil (mapcar #'(lambda (arg)

View file

@ -51,6 +51,7 @@
(use-package-error (use-package-error
":delight expects `delight' arguments or a list of them")))) ":delight expects `delight' arguments or a list of them"))))
;;;###autoload
(defun use-package-normalize/:delight (name keyword args) (defun use-package-normalize/:delight (name keyword args)
"Normalize arguments to delight." "Normalize arguments to delight."
(cond ((null args) (cond ((null args)
@ -75,6 +76,7 @@
(list args) (list args)
args))))) args)))))
;;;###autoload
(defun use-package-handler/:delight (name keyword args rest state) (defun use-package-handler/:delight (name keyword args rest state)
(let ((body (use-package-process-keywords name rest state))) (let ((body (use-package-process-keywords name rest state)))
(use-package-concat (use-package-concat

View file

@ -56,10 +56,12 @@
(concat label " wants a string, symbol, " (concat label " wants a string, symbol, "
"(symbol . string) or list of these"))))) "(symbol . string) or list of these")))))
;;;###autoload
(defun use-package-normalize/:diminish (name keyword args) (defun use-package-normalize/:diminish (name keyword args)
(use-package-as-one (symbol-name keyword) args (use-package-as-one (symbol-name keyword) args
(apply-partially #'use-package-normalize-diminish name) t)) (apply-partially #'use-package-normalize-diminish name) t))
;;;###autoload
(defun use-package-handler/:diminish (name keyword arg rest state) (defun use-package-handler/:diminish (name keyword arg rest state)
(let ((body (use-package-process-keywords name rest state))) (let ((body (use-package-process-keywords name rest state)))
(use-package-concat (use-package-concat

View file

@ -50,6 +50,7 @@
(cons arg (use-package-ensure-system-package-install-command (symbol-name arg)))) (cons arg (use-package-ensure-system-package-install-command (symbol-name arg))))
((consp arg) arg))) ((consp arg) arg)))
;;;###autoload
(defun use-package-normalize/:ensure-system-package (name-symbol keyword args) (defun use-package-normalize/:ensure-system-package (name-symbol keyword args)
"Turn `arg' into a list of cons-es of (`package-name' . `install-command')." "Turn `arg' into a list of cons-es of (`package-name' . `install-command')."
(use-package-only-one (symbol-name keyword) args (use-package-only-one (symbol-name keyword) args
@ -60,6 +61,7 @@
(t (t
(list (use-package-ensure-system-package-consify arg))))))) (list (use-package-ensure-system-package-consify arg)))))))
;;;###autoload
(defun use-package-handler/:ensure-system-package (name keyword arg rest state) (defun use-package-handler/:ensure-system-package (name keyword arg rest state)
"Execute the handler for `:ensure-system-package' keyword in `use-package'." "Execute the handler for `:ensure-system-package' keyword in `use-package'."
(let ((body (use-package-process-keywords name rest state))) (let ((body (use-package-process-keywords name rest state)))

View file

@ -132,6 +132,7 @@ manually updated package."
(defvar package-archive-contents) (defvar package-archive-contents)
;;;###autoload
(defun use-package-normalize/:ensure (name keyword args) (defun use-package-normalize/:ensure (name keyword args)
(if (null args) (if (null args)
(list t) (list t)
@ -180,6 +181,7 @@ manually updated package."
name (error-message-string err)) name (error-message-string err))
:error))))))))) :error)))))))))
;;;###autoload
(defun use-package-handler/:ensure (name keyword ensure rest state) (defun use-package-handler/:ensure (name keyword ensure rest state)
(let* ((body (use-package-process-keywords name rest state))) (let* ((body (use-package-process-keywords name rest state)))
;; We want to avoid installing packages when the `use-package' macro is ;; We want to avoid installing packages when the `use-package' macro is