From: Russell Black <black.russell@gmail.com>
Date: Sat, 24 Mar 2018 04:04:48 +0000 (-0600)
Subject: Update use-package-chords.el
X-Git-Tag: emacs-29.0.90~1306^2~15^2~67^2~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dc83e2f035033fa038888115a8a92f5df69b1732;p=emacs.git

Update use-package-chords.el
---

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)