masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-04 19:29:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request from sdwolfz/native-compiler-warning

Browse source 
GitHub-reference: https://github.com/jwiegley/use-package/issues/997
This commit is contained in:
John Wiegley 2022-09-09 13:43:41 -07:00 • committed by GitHub
commit d4aeda77a9
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-core.el
View file

@ -910,12 +910,12 @@ If RECURSED is non-nil, recurse into sublists."
sym
\\='sym
(quote sym)
#'sym
#\\='sym
(function sym)
(lambda () ...)
\\='(lambda () ...)
(quote (lambda () ...))
#'(lambda () ...)
#\\='(lambda () ...)
(function (lambda () ...))"
(or (if binding
(symbolp v)
@ -930,7 +930,7 @@ If RECURSED is non-nil, recurse into sublists."
(defun use-package-normalize-function (v)
"Reduce functional constructions to one of two normal forms:
sym
#'(lambda () ...)"
#\\='(lambda () ...)"
(cond ((symbolp v) v)
((and (listp v)
(memq (car v) '(quote function))