diff options
| author | Codruț Constantin Gușoi <mail+git@codrut.pro> | 2022-09-09 08:03:18 +0100 |
|---|---|---|
| committer | Codruț Constantin Gușoi <mail+git@codrut.pro> | 2022-09-09 08:11:07 +0100 |
| commit | 3feedce08d426e6f6855398f4acc675aa71d2cea (patch) | |
| tree | d13ea85ef8f21232ffe8ecde496b8171a510d82b /lisp/use-package | |
| parent | 6c2fdaffd98609fb33b5434cd563d07483bd4ef8 (diff) | |
| download | emacs-3feedce08d426e6f6855398f4acc675aa71d2cea.tar.gz emacs-3feedce08d426e6f6855398f4acc675aa71d2cea.tar.bz2 emacs-3feedce08d426e6f6855398f4acc675aa71d2cea.zip | |
Fix emacs native compilation warning
```
■ Warning (comp): use-package-core.el:907:2: Warning: docstring has
wrong usage of unescaped single quotes (use \= or different quoting)
■ Warning (comp): use-package-core.el:930:2: Warning: docstring has
wrong usage of unescaped single quotes (use \= or different quoting)
```
To reproduce, have emacs build with native compilation and notice the
compilation logs. You can then open this file and run `M-x
emacs-lisp-native-compile-and-load` before and after the changes to see the
warning is removed.
Diffstat (limited to 'lisp/use-package')
| -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)) |