branch: externals/orderless
commit 40f75b6bdf1574b1d50d04a482c529050ed37d2e
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
orderless-literal: Use (literal string) instead of regexp-quote
---
orderless.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/orderless.el b/orderless.el
index 97a9cd5073..de53463031 100644
--- a/orderless.el
+++ b/orderless.el
@@ -216,9 +216,9 @@ is determined by the values of `completion-ignore-case',
(progn (string-match-p component "") component)
(invalid-regexp nil)))
-(defalias 'orderless-literal #'regexp-quote
- "Match a component as a literal string.
-This is simply `regexp-quote'.")
+(defun orderless-literal (component)
+ "Match COMPONENT as a literal string."
+ `(literal ,component))
(defun orderless--separated-by (sep rxs &optional before after)
"Return a regexp to match the rx-regexps RXS with SEP in between.
