[elpa] externals/orderless 2765d37ed2 1/3: Remove orderless-skip-highlighting

[ELPA Syncer]

branch: externals/orderless
commit 2765d37ed2dada6b027a0b07fcbb714e06bfe1d3
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Remove orderless-skip-highlighting
    
    This variable was added to support Selectrum, which has been deprecated now.
    Vertico and Corfu use a different technique to implement deferred 
highlighting
    for the visible candidates only.
    
    There are no other users of this variable. The problem of deferred 
highlighting
    must be solved more generally by improving the completion styles API itself 
in
    minibuffer.el. It is therefore better to not provide this variable here.
---
 orderless.el | 20 +++-----------------
 1 file changed, 3 insertions(+), 17 deletions(-)

diff --git a/orderless.el b/orderless.el
index 46fe803536..bd17676149 100644
--- a/orderless.el
+++ b/orderless.el
@@ -109,13 +109,6 @@ or a function of a single string argument."
   "Vector of faces used (cyclically) for component matches."
   :type '(vector face))
 
-(defcustom orderless-skip-highlighting nil
-  "Skip highlighting the matching parts of candidates?
-If this is set to a function, the function is called to decide
-whether to skip higlighting the matches.  Any non-function non-nil
-value means highlighting is skipped."
-  :type '(choice boolean function))
-
 (defcustom orderless-matching-styles
   '(orderless-literal orderless-regexp)
   "List of component matching styles.
@@ -453,16 +446,9 @@ This function is part of the `orderless' completion style."
   (let ((completions (orderless-filter string table pred)))
     (when completions
       (pcase-let ((`(,prefix . ,pattern)
-                   (orderless--prefix+pattern string table pred))
-                  (skip-highlighting
-                   (if (functionp orderless-skip-highlighting)
-                       (funcall orderless-skip-highlighting)
-                     orderless-skip-highlighting)))
-        (nconc
-         (if skip-highlighting
-             completions
-           (orderless-highlight-matches pattern completions))
-         (length prefix))))))
+                   (orderless--prefix+pattern string table pred)))
+        (nconc (orderless-highlight-matches pattern completions)
+               (length prefix))))))
 
 ;;;###autoload
 (defun orderless-try-completion (string table pred point)