[elpa] externals/relint c08baf2 06/10: Quote symbols with ' instead of ` in pcase

[Mattias Engdegård]

branch: externals/relint
commit c08baf220028d95ad8337019eba46ae5cb607360
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>

    Quote symbols with ' instead of ` in pcase
---
 relint.el | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/relint.el b/relint.el
index 76b2405..3d85222 100644
--- a/relint.el
+++ b/relint.el
@@ -903,7 +903,7 @@ character alternative: `[' followed by a regexp-generating 
expression."
 
 (defun relint--check-form-recursively-1 (form file pos path)
   (pcase form
-    (`(,(or `defun `defmacro `defsubst)
+    (`(,(or 'defun 'defmacro 'defsubst)
        ,name ,args . ,body)
 
      ;; Save the function or macro for possible use.
@@ -980,23 +980,23 @@ character alternative: `[' followed by a 
regexp-generating expression."
 
 (defun relint--check-form-recursively-2 (form file pos path)
   (pcase form
-    (`(,(or `looking-at `re-search-forward `re-search-backward
-            `string-match `string-match-p `looking-back `looking-at-p
-            `replace-regexp-in-string `replace-regexp
-            `query-replace-regexp
-            `posix-looking-at `posix-search-backward `posix-search-forward
-            `posix-string-match
-            `load-history-filename-element
-            `kill-matching-buffers
-            `keep-lines `flush-lines `how-many)
+    (`(,(or 'looking-at 're-search-forward 're-search-backward
+            'string-match 'string-match-p 'looking-back 'looking-at-p
+            'replace-regexp-in-string 'replace-regexp
+            'query-replace-regexp
+            'posix-looking-at 'posix-search-backward 'posix-search-forward
+            'posix-string-match
+            'load-history-filename-element
+            'kill-matching-buffers
+            'keep-lines 'flush-lines 'how-many)
        ,re-arg . ,_)
      (unless (and (symbolp re-arg)
                   (memq re-arg relint--checked-variables))
        (relint--check-re re-arg (format "call to %s" (car form))
                          file pos (cons 1 path))))
-    (`(,(or `split-string `split-string-and-unquote
-            `string-trim-left `string-trim-right `string-trim
-            `directory-files-recursively)
+    (`(,(or 'split-string 'split-string-and-unquote
+            'string-trim-left 'string-trim-right 'string-trim
+            'directory-files-recursively)
        ,_ ,re-arg . ,rest)
      (unless (and (symbolp re-arg)
                   (memq re-arg relint--checked-variables))
@@ -1018,7 +1018,7 @@ character alternative: `[' followed by a 
regexp-generating expression."
                       (memq trim relint--checked-variables))
            (relint--check-re trim (format "call to %s" (car form))
                              file pos (cons 4 path))))))
-    (`(,(or `skip-chars-forward `skip-chars-backward)
+    (`(,(or 'skip-chars-forward 'skip-chars-backward)
        ,skip-arg . ,_)
      (let ((str (relint--get-string skip-arg file pos path)))
        (when str
@@ -1033,7 +1033,7 @@ character alternative: `[' followed by a 
regexp-generating expression."
      (let ((template (relint--get-string template-arg file pos path)))
        (when template
          (relint--check-format-mixup template args file pos path))))
-    (`(,(or `defvar `defconst `defcustom)
+    (`(,(or 'defvar 'defconst 'defcustom)
        ,name ,re-arg . ,rest)
      (let ((type (and (eq (car form) 'defcustom)
                           (relint--eval-or-nil (plist-get (cdr rest) :type)))))