mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 22:41:06 -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

13
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)
(if (listp arg)
(cdr arg)
nil)) arg)))
(chord-binder
(use-package-concat (use-package-concat
(use-package-process-keywords name (use-package-process-keywords name rest state)
(use-package-sort-keywords
(use-package-plist-maybe-put rest :defer t))
(use-package-plist-append state :commands commands))
`(,(macroexpand `(,(macroexpand
`(bind-chords :package ,name ,@arg)))))) `(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)