mirror of
https://github.com/masscollaborationlabs/emacs.git
synced 2025-07-07 12:49:38 +00:00
Add missing autoload cookies
Fixes https://github.com/jwiegley/use-package/issues/555
This commit is contained in:
parent
f037c2daeb
commit
10fd4577d0
6 changed files with 17 additions and 0 deletions
|
@ -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))
|
||||
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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)))
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue