mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-11 08:30:45 -08:00
Code Issues Projects Releases Wiki Activity

Allow :custom (foo1 bar1) (foo2 bar2) etc

Browse source 
Fixes https://github.com/jwiegley/use-package/issues/518
This commit is contained in:
John Wiegley 2017-11-28 14:16:13 -08:00
parent 4ad4a59685
commit 2ebf076733
1 changed files with 9 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1420,7 +1420,7 @@ deferred until the prefix key sequence is pressed."
(lambda (label arg)
(unless (or (symbolp arg) (consp arg))
(use-package-error
(concat label " a <symbol> or a (<symbol> . <symbol or function>)"
(concat label " a <symbol> or (<symbol or list of symbols> . <symbol or function>)"
" or list of these")))
(use-package-normalize-pairs
#'(lambda (k)
@ -1463,20 +1463,15 @@ deferred until the prefix key sequence is pressed."
;;; :custom
;;
(defun use-package-normalize/:custom (name-symbol keyword args)
(defun use-package-normalize/:custom (name keyword args)
"Normalize use-package custom keyword."
(cond
((and (= (length args) 1)
(listp (car args))
(listp (car (car args))))
(car args))
((and (= (length args) 1)
(listp (car args)))
args)
(t
(use-package-error
(concat label " a (<symbol> <value> [comment])"
" or list of these")))))
(use-package-as-one (symbol-name keyword) args
(lambda (label arg)
(unless (listp arg)
(use-package-error
(concat label " a (<symbol> <value> [comment])"
" or list of these")))
arg)))
(defun use-package-handler/:custom (name keyword args rest state)
"Generate use-package custom keyword code."