From 40f75b6bdf1574b1d50d04a482c529050ed37d2e Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Thu, 15 Feb 2024 13:51:08 +0100 Subject: 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 97a9cd5..de53463 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. -- cgit v1.0