procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Correction to use-package--recognize-function

Browse source 
Finishes https://github.com/jwiegley/use-package/issues/525
This commit is contained in:
John Wiegley 2017-11-29 22:03:03 -08:00
parent 5f2b0cbe8f
commit fab33fef3a
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1012,7 +1012,7 @@ If RECURSED is non-nil, recurse into sublists."
(setq last-item x))) arg)))
(t arg)))
(defun use-package--recognize-function (v &optional additional-pred)
(defun use-package--recognize-function (v &optional binding additional-pred)
"A predicate that recognizes functional constructions:
nil
sym
@ -1026,10 +1026,12 @@ If RECURSED is non-nil, recurse into sublists."
#'(lambda () ...)
(function (lambda () ...))"
(pcase v
((pred symbolp) t)
((and x (guard (if binding
(symbolp x)
(use-package--non-nil-symbolp x)))) t)
(`(,(or `quote `function)
,(pred symbolp)) t)
((pred commandp) t)
,(pred use-package--non-nil-symbolp)) t)
((and x (guard (if binding (commandp x) (functionp x)))) t)
(_ (and additional-pred
(funcall additional-pred v)))))
@ -1076,7 +1078,7 @@ representing symbols (that may need to be autloaded)."
(pcase k
((pred stringp) t)
((pred vectorp) t)))
#'(lambda (v) (use-package--recognize-function v #'stringp))
#'(lambda (v) (use-package--recognize-function v t #'stringp))
name label arg))))
(defalias 'use-package-normalize/:bind 'use-package-normalize-binder)