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

Merge pull request from killdash9/patch-1

Browse source 
New style of auto-deferral for chords
GitHub-reference: https://github.com/jwiegley/use-package/issues/658
This commit is contained in:
John Wiegley 2018-06-25 12:12:37 -07:00 • committed by GitHub
commit 1fb4198933
1 changed files with 7 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -23,25 +23,19 @@
(require 'use-package)
(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)