mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-25 22:50:37 -08:00
Code Issues Projects Releases Wiki Activity

Merge pull request from basil-conto/520

Browse source 
Require cl-lib and do not use seq functions
GitHub-reference: https://github.com/jwiegley/use-package/issues/521
This commit is contained in:
John Wiegley 2017-11-29 07:57:40 -08:00 • committed by GitHub
commit 2aea700500
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -41,7 +41,7 @@
(require 'bind-key)
(require 'bytecomp)
(require 'seq)
(require 'cl-lib)
(eval-when-compile (require 'cl))
(eval-when-compile (require 'regexp-opt))
@ -1427,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))))
@ -1453,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))))