From 4303a2faf6de7d06b39c240bfb70a97ceea1f1d7 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Wed, 29 Nov 2017 15:47:00 +0000 Subject: [PATCH] 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 --- lisp/use-package/use-package.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index a1beca1fc05..f6c437d5728 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -41,6 +41,7 @@ (require 'bind-key) (require 'bytecomp) +(require 'cl-lib) (eval-when-compile (require 'cl)) (eval-when-compile (require 'regexp-opt)) @@ -1426,7 +1427,7 @@ deferred until the prefix key sequence is pressed." (or (symbolp k) (and (listp k) (listp (cdr k)) - (seq-every-p #'symbolp k)))) + (cl-every #'symbolp k)))) #'(lambda (v) (or (symbolp v) (functionp v))) name label arg)))) @@ -1452,7 +1453,7 @@ deferred until the prefix key sequence is pressed." (let ((syms (car def)) (fun (cdr def))) (mapcar - #'(lambda (sym) + #'(lambda (sym) `(add-hook (quote ,(intern (format "%s-hook" sym))) (function ,fun))) (if (symbolp syms) (list syms) syms)))) args)))) -- 2.39.2