Require cl-lib and do not use seq functions

cl-lib is also required for a separate call to cl-mapcan.

Fixes https://github.com/jwiegley/use-package/issues/520
This commit is contained in:
Basil L. Contovounesios 2017-11-29 15:47:00 +00:00
parent b7041c0f29
commit 4303a2faf6

View file

@ -41,6 +41,7 @@
(require 'bind-key) (require 'bind-key)
(require 'bytecomp) (require 'bytecomp)
(require 'cl-lib)
(eval-when-compile (require 'cl)) (eval-when-compile (require 'cl))
(eval-when-compile (require 'regexp-opt)) (eval-when-compile (require 'regexp-opt))
@ -1426,7 +1427,7 @@ deferred until the prefix key sequence is pressed."
(or (symbolp k) (or (symbolp k)
(and (listp k) (and (listp k)
(listp (cdr k)) (listp (cdr k))
(seq-every-p #'symbolp k)))) (cl-every #'symbolp k))))
#'(lambda (v) #'(lambda (v)
(or (symbolp v) (functionp v))) (or (symbolp v) (functionp v)))
name label arg)))) name label arg))))