If matching-styles is nil, assume regexp matching

1 files changed, 9 insertions, 6 deletions

diff --git a/orderless.el b/orderless.el
index d5edd51..58810d0 100644
--- a/orderless.el
+++ b/orderless.el
@@ -196,12 +196,15 @@ converted to a list of regexps according to the value of
   "Build regexps to match PATTERN.
 Consults `orderless-component-matching-styles' to decide what to
 match."
-  (cl-loop for component in
-           (split-string pattern orderless-component-separator t)
-           collect
-           (rx-to-string
-            `(or ,@(cl-loop for style in orderless-component-matching-styles
-                            collect `(regexp ,(funcall style component)))))))
+  (let ((components (split-string pattern orderless-component-separator t)))
+    (if orderless-component-matching-styles
+        (cl-loop for component in components
+                 collect
+                 (rx-to-string
+                  `(or
+                    ,@(cl-loop for style in orderless-component-matching-styles
+                               collect `(regexp ,(funcall style component))))))
+      components)))
 
 (defun orderless--prefix+pattern (string table pred)
   "Split STRING into prefix and pattern according to TABLE.