From dc83e2f035033fa038888115a8a92f5df69b1732 Mon Sep 17 00:00:00 2001 From: Russell Black Date: Fri, 23 Mar 2018 22:04:48 -0600 Subject: [PATCH] Update use-package-chords.el --- lisp/use-package/use-package-chords.el | 17 ++++------------- 1 file changed, 4 insertions(+), 13 deletions(-) diff --git a/lisp/use-package/use-package-chords.el b/lisp/use-package/use-package-chords.el index 361398cc8dc..fbac4b59df6 100644 --- a/lisp/use-package/use-package-chords.el +++ b/lisp/use-package/use-package-chords.el @@ -32,19 +32,10 @@ ;;;###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) -- 2.39.2