[elpa] externals/xr 0968437 3/5: Quote symbols with ' instead of ` in pcase

[Mattias Engdegård]

branch: externals/xr
commit 09684376c0ccd545b384fc35df9fdea42081ccb8
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>

    Quote symbols with ' instead of ` in pcase
---
 xr.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/xr.el b/xr.el
index 6a173b2..edd21b8 100644
--- a/xr.el
+++ b/xr.el
@@ -443,18 +443,18 @@ UPPER may be nil, meaning infinity."
 (defun xr--matches-empty-p (rx)
   "Whether RX can match the empty string regardless of context."
   (pcase rx
-    (`(,(or `seq `one-or-more `group) . ,body)
+    (`(,(or 'seq 'one-or-more 'group) . ,body)
      (cl-every #'xr--matches-empty-p body))
     (`(or . ,body)
      (cl-some #'xr--matches-empty-p body))
     (`(group-n ,_ . ,body)
      (cl-every #'xr--matches-empty-p body))
-    (`(,(or `opt `zero-or-more) . ,_)
+    (`(,(or 'opt 'zero-or-more) . ,_)
      t)
     (`(repeat ,from ,_ . ,body)
      (or (= from 0)
          (cl-every #'xr--matches-empty-p body)))
-    (`(,(or `= `>=) ,_ . ,body)
+    (`(,(or '= '>=) ,_ . ,body)
      (cl-every #'xr--matches-empty-p body))
     ("" t)))