diff options
| author | John Wiegley <johnw@newartisans.com> | 2022-09-09 13:43:41 -0700 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-09-09 13:43:41 -0700 |
| commit | d4aeda77a9e9e6e355ad2ea9c59137aab3da0349 (patch) | |
| tree | d13ea85ef8f21232ffe8ecde496b8171a510d82b | |
| parent | 6c2fdaffd98609fb33b5434cd563d07483bd4ef8 (diff) | |
| parent | 3feedce08d426e6f6855398f4acc675aa71d2cea (diff) | |
| download | emacs-d4aeda77a9.tar.gz | |
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.el | 6 |
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." 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)) |