diff options
Diffstat (limited to 'lisp/use-package')
| -rw-r--r-- | lisp/use-package/use-package-chords.el | 20 |
1 files changed, 7 insertions, 13 deletions
diff --git a/lisp/use-package/use-package-chords.el b/lisp/use-package/use-package-chords.el index 936ff228999..478759d10c3 100644 --- a/lisp/use-package/use-package-chords.el +++ b/lisp/use-package/use-package-chords.el @@ -24,24 +24,18 @@ (require 'bind-chord) ;;;###autoload +(defalias 'use-package-autoloads/:chords 'use-package-autoloads-mode) + +;;;###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) - (if (listp arg) - (cdr arg) - nil)) arg))) - (chord-binder - (use-package-concat - (use-package-process-keywords name - (use-package-sort-keywords - (use-package-plist-maybe-put rest :defer t)) - (use-package-plist-append state :commands commands)) - `(,(macroexpand - `(bind-chords :package ,name ,@arg)))))) - (use-package-handler/:preface name keyword chord-binder rest state))) + (use-package-concat + (use-package-process-keywords name rest state) + `(,(macroexpand + `(bind-chords :package ,name ,@arg))))) (add-to-list 'use-package-keywords :chords t) |