home

commit 1b556609c568d045ada92ebef548b7f4a8cf7636
parent 26244d8f3e6b2fc5c75a3525274b5d2cbb62b866
Author: Vincent Demeester <vincent@sbr.pm>
Date:   Fri, 11 Feb 2022 15:18:58 +0100

tools/emacs: fix orderless initialism (gone)

Signed-off-by: Vincent Demeester <vincent@sbr.pm>

Diffstat:
M
tools/emacs/config/config-completion.el
 | 
13
++-----------

1 file changed, 2 insertions(+), 11 deletions(-)
diff --git a/tools/emacs/config/config-completion.el b/tools/emacs/config/config-completion.el
@@ -10,7 +10,6 @@
   (setq orderless-matching-styles
         '(orderless-prefixes
           orderless-literal
-          orderless-strict-leading-initialism
           orderless-regexp
           orderless-flex))
 
@@ -21,15 +20,7 @@ parses its input."
     (when (string-suffix-p "=" pattern)
       `(orderless-literal . ,(substring pattern 0 -1))))
 
-  (defun vde/orderless-initialism-dispatcher (pattern _index _total)
-    "Leading initialism  dispatcher using the comma suffix.
-It matches PATTERN _INDEX and _TOTAL according to how Orderless
-parses its input."
-    (when (string-suffix-p "," pattern)
-      `(orderless-strict-leading-initialism . ,(substring pattern 0 -1))))
-
-  (setq orderless-style-dispatchers '(vde/orderless-literal-dispatcher
-                                      vde/orderless-initialism-dispatcher))
+  (setq orderless-style-dispatchers '(vde/orderless-literal-dispatcher))
   :bind (:map minibuffer-local-completion-map
               ("SPC" . nil)))         ; space should never complete
 
@@ -54,7 +45,7 @@ parses its input."
   (setq completion-styles
         '(substring initials flex partial-completion orderless))
   (setq completion-category-overrides
-        '((file (styles . (partial-completion orderless)))))
+        '((file (styles partial-completion))))
   ;; The following two are updated in Emacs 28.  They concern the
   ;; *Completions* buffer.
   (setq completions-format 'one-column)