[nongnu] elpa/flx d21ac098df 050/182: add option `flx-ido-use-faces'

[ELPA Syncer]

branch: elpa/flx
commit d21ac098dfad860cd33aea2d3b16669e96a429c5
Author: Le Wang <le.wang@agworld.com.au>
Commit: Le Wang <le.wang@agworld.com.au>

    add option `flx-ido-use-faces'
    
    fixes #17
---
 flx-ido.el | 31 +++++++++++++++++++------------
 1 file changed, 19 insertions(+), 12 deletions(-)

diff --git a/flx-ido.el b/flx-ido.el
index 2519fb23e5..f6c428c85e 100644
--- a/flx-ido.el
+++ b/flx-ido.el
@@ -13,7 +13,7 @@
 ;; Version: 0.2
 ;; Last-Updated:
 ;;           By:
-;;     Update #: 52
+;;     Update #: 55
 ;; URL:
 ;; Keywords:
 ;; Compatibility:
@@ -68,6 +68,11 @@
 (require 'ido)
 (require 'flx)
 
+
+(defcustom flx-ido-use-faces t
+  "Use `flx-highlight-face' to indicate characters contributing to best score."
+  :group 'ido)
+
 (unless (fboundp 'ido-delete-runs)
   (defun ido-delete-runs (list)
     "Delete consecutive runs of same item in list.
@@ -124,17 +129,19 @@ item, in which case, the ending items are deleted."
 
 
 (defun flx-ido-decorate (things &optional clear)
-  (let ((decorate-count (min ido-max-prospects
-                             (length things))))
-    (nconc
-     (loop for thing in things
-           for i from 0 below decorate-count
-           collect (if clear
-                       (flx-propertize thing nil)
-                     (flx-propertize (car thing) (cdr thing))))
-     (if clear
-         (nthcdr decorate-count things)
-       (mapcar 'car (nthcdr decorate-count things))))))
+  (if flx-ido-use-faces
+      (let ((decorate-count (min ido-max-prospects
+                                 (length things))))
+        (nconc
+         (loop for thing in things
+               for i from 0 below decorate-count
+               collect (if clear
+                           (flx-propertize thing nil)
+                         (flx-propertize (car thing) (cdr thing))))
+         (if clear
+             (nthcdr decorate-count things)
+           (mapcar 'car (nthcdr decorate-count things)))))
+    (mapcar 'car things)))
 
 (defun flx-ido-match-internal (query items)
   (let* ((matches (loop for item in items