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.
This commit is contained in:
Codruț Constantin Gușoi 2022-09-09 08:03:18 +01:00
parent 6c2fdaffd9
commit 3feedce08d

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))