[nongnu] elpa/flx 48ebd6c857 094/182: Make prefix-matchine one way.

[ELPA Syncer]

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

    Make prefix-matchine one way.
---
 flx-ido.el | 24 +++++++++++++++---------
 1 file changed, 15 insertions(+), 9 deletions(-)

diff --git a/flx-ido.el b/flx-ido.el
index 3a99ba0fd2..414b01137e 100644
--- a/flx-ido.el
+++ b/flx-ido.el
@@ -97,6 +97,12 @@ item, in which case, the ending items are deleted."
                       (length b))))
     (eq t (compare-strings b 0 min-len
                            a 0 min-len))))
+(defun flx-ido-is-prefix-match (str prefix)
+  "Return t if PREFIX is PREFIX of STR"
+  (when (and str prefix)
+    (let ((length (length prefix)))
+      (eq t (compare-strings prefix 0 length
+                             str 0 length)))))
 
 (defun flx-ido-narrowed (query items)
   "Get the value from `flx-ido-narrowed-matches-hash' with the
@@ -108,15 +114,15 @@ item, in which case, the ending items are deleted."
           exact
           res)
       (cl-loop for key being the hash-key of flx-ido-narrowed-matches-hash
-            do (when (and (>= (length query-key) (length key))
-                          (flx-ido-is-prefix-match query-key key)
-                          (or (null best-match)
-                              (> (length key) (length best-match))))
-                 (setq best-match key)
-                 (when (= (length key)
-                          (length query-key))
-                   (setq exact t)
-                   (cl-return))))
+               do (when (and (>= (length query-key) (length key))
+                             (flx-ido-is-prefix-match query-key key)
+                             (or (null best-match)
+                                 (> (length key) (length best-match))))
+                    (setq best-match key)
+                    (when (= (length key)
+                             (length query-key))
+                      (setq exact t)
+                      (cl-return))))
       (setq res (cond (exact
                        (gethash best-match flx-ido-narrowed-matches-hash))
                       (best-match