diff options
| -rw-r--r-- | orderless.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/orderless.el b/orderless.el index bd34856..1ff379e 100644 --- a/orderless.el +++ b/orderless.el @@ -370,7 +370,7 @@ converted to a list of regexps according to the value of "\\\\\\\\\\|\\\\ " (lambda (x) (if (equal x "\\ ") (string 0) x)) string 'fixedcase 'literal) - " +" t))) + " +"))) (defun orderless--dispatch (dispatchers default string index total) "Run DISPATCHERS to compute matching styles for STRING. @@ -457,9 +457,10 @@ string as argument." (unless dispatchers (setq dispatchers orderless-style-dispatchers)) (cl-loop with predicate = nil - with components = (if (functionp orderless-component-separator) - (funcall orderless-component-separator pattern) - (split-string pattern orderless-component-separator t)) + with temp = (if (functionp orderless-component-separator) + (funcall orderless-component-separator pattern) + (split-string pattern orderless-component-separator)) + with components = (if (equal (car (last temp)) "") (nbutlast temp) temp) with total = (length components) for comp in components and index from 0 for (pred . regexp) = (orderless--compile-component |