From: Codruț Constantin Gușoi <mail+git@codrut.pro>
Date: Fri, 9 Sep 2022 07:03:18 +0000 (+0100)
Subject: Fix emacs native compilation warning
X-Git-Tag: emacs-29.0.90~1306^2~15^2~20^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3feedce08d426e6f6855398f4acc675aa71d2cea;p=emacs.git

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

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