masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 11:49:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Support :bind (:map '(...))

Browse source 
We transform it into (:map foo (...) (...)) in the normalizer, and
no longer warn about unknown sorts of arg.
This commit is contained in:
Nick Alcock 2015-07-30 23:42:59 +01:00 • committed by Nix
parent 269b1080ae
commit 1cbcd66ebe
1 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -629,11 +629,13 @@ manually updated package."
((use-package-is-sympair arg allow-vector)
(list arg))
((and (not recursed) (listp arg) (listp (cdr arg)))
(mapcar #'(lambda (x) (car (use-package-normalize-pairs
name-symbol label x t allow-vector))) arg))
(t
(use-package-error
(concat label " wants a string, (string . symbol) or list of these")))))
(mapcar #'(lambda (x)
(let ((ret (use-package-normalize-pairs
name-symbol label x t allow-vector)))
(if (listp ret)
(car ret)
ret))) arg))
(t arg)))
(defun use-package-normalize-binder (name-symbol keyword args)
(use-package-as-one (symbol-name keyword) args
@ -645,7 +647,10 @@ manually updated package."
(defun use-package-handler/:bind
(name-symbol keyword arg rest state &optional override)
(let ((commands (mapcar #'cdr arg)))
(let ((commands (remq nil (mapcar #'(lambda (arg)
(if (listp arg)
(cdr arg)
nil)) arg))))
(use-package-concat
(use-package-process-keywords name-symbol
(use-package-sort-keywords