diff options
| author | John Wiegley | 2022-09-09 13:43:41 -0700 |
|---|---|---|
| committer | GitHub | 2022-09-09 13:43:41 -0700 |
| commit | d4aeda77a9e9e6e355ad2ea9c59137aab3da0349 (patch) | |
| tree | d13ea85ef8f21232ffe8ecde496b8171a510d82b | |
| parent | 6c2fdaffd98609fb33b5434cd563d07483bd4ef8 (diff) | |
| parent | 3feedce08d426e6f6855398f4acc675aa71d2cea (diff) | |
| download | emacs-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.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." | |||
| 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)) |