mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 06:50:23 -08:00
Code Issues Projects Releases Wiki Activity

Update use-package-chords.el

Browse source
This commit is contained in:
Russell Black 2018-03-23 22:04:48 -06:00 • committed by GitHub
parent c9f6cae603
commit dc83e2f035
1 changed files with 4 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/use-package/use-package-chords.el
View file

@ -32,19 +32,10 @@
;;;###autoload ;;;###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) (use-package-concat
(if (listp arg) (use-package-process-keywords name rest state)
(cdr arg) `(,(macroexpand
nil)) arg))) `(bind-chords :package ,name ,@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)))
(add-to-list 'use-package-keywords :chords t) (add-to-list 'use-package-keywords :chords t)