aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJohn Wiegley2022-09-09 13:43:41 -0700
committerGitHub2022-09-09 13:43:41 -0700
commitd4aeda77a9e9e6e355ad2ea9c59137aab3da0349 (patch)
treed13ea85ef8f21232ffe8ecde496b8171a510d82b
parent6c2fdaffd98609fb33b5434cd563d07483bd4ef8 (diff)
parent3feedce08d426e6f6855398f4acc675aa71d2cea (diff)
downloademacs-d4aeda77a9e9e6e355ad2ea9c59137aab3da0349.tar.gz
emacs-d4aeda77a9e9e6e355ad2ea9c59137aab3da0349.zip
Merge pull request from sdwolfz/native-compiler-warning
GitHub-reference: https://github.com/jwiegley/use-package/issues/997
-rw-r--r--lisp/use-package/use-package-core.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/use-package/use-package-core.el b/lisp/use-package/use-package-core.el
index ab35131e4f4..946c029ff4a 100644
--- a/lisp/use-package/use-package-core.el
+++ b/lisp/use-package/use-package-core.el
@@ -910,12 +910,12 @@ If RECURSED is non-nil, recurse into sublists."
910 sym 910 sym
911 \\='sym 911 \\='sym
912 (quote sym) 912 (quote sym)
913 #'sym 913 #\\='sym
914 (function sym) 914 (function sym)
915 (lambda () ...) 915 (lambda () ...)
916 \\='(lambda () ...) 916 \\='(lambda () ...)
917 (quote (lambda () ...)) 917 (quote (lambda () ...))
918 #'(lambda () ...) 918 #\\='(lambda () ...)
919 (function (lambda () ...))" 919 (function (lambda () ...))"
920 (or (if binding 920 (or (if binding
921 (symbolp v) 921 (symbolp v)
@@ -930,7 +930,7 @@ If RECURSED is non-nil, recurse into sublists."
930(defun use-package-normalize-function (v) 930(defun use-package-normalize-function (v)
931 "Reduce functional constructions to one of two normal forms: 931 "Reduce functional constructions to one of two normal forms:
932 sym 932 sym
933 #'(lambda () ...)" 933 #\\='(lambda () ...)"
934 (cond ((symbolp v) v) 934 (cond ((symbolp v) v)
935 ((and (listp v) 935 ((and (listp v)
936 (memq (car v) '(quote function)) 936 (memq (car v) '(quote function))