branch: externals/xr
commit 09684376c0ccd545b384fc35df9fdea42081ccb8
Author: Mattias Engdegård <[email protected]>
Commit: Mattias Engdegård <[email protected]>
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)))
