masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 03:39:38 +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
\\='sym \\='sym
(quote sym) (quote sym)
#'sym #\\='sym
(function sym) (function sym)
(lambda () ...) (lambda () ...)
\\='(lambda () ...) \\='(lambda () ...)
(quote (lambda () ...)) (quote (lambda () ...))
#'(lambda () ...) #\\='(lambda () ...)
(function (lambda () ...))" (function (lambda () ...))"
(or (if binding (or (if binding
(symbolp v) (symbolp v)
@ -930,7 +930,7 @@ If RECURSED is non-nil, recurse into sublists."
(defun use-package-normalize-function (v) (defun use-package-normalize-function (v)
"Reduce functional constructions to one of two normal forms: "Reduce functional constructions to one of two normal forms:
sym sym
#'(lambda () ...)" #\\='(lambda () ...)"
(cond ((symbolp v) v) (cond ((symbolp v) v)
((and (listp v) ((and (listp v)
(memq (car v) '(quote function)) (memq (car v) '(quote function))