branch: elpa/flx
commit 813e56a014eb9a929ad8a58142ee61a35f674276
Author: Le Wang <le.w...@agworld.com.au>
Commit: Le Wang <le.w...@agworld.com.au>
Stabilise search results when scores are equal.
- fixes #60
---
flx-ido.el | 9 ++++++++-
misc/flx-helm-demo.el | 10 ++++++++--
2 files changed, 16 insertions(+), 3 deletions(-)
diff --git a/flx-ido.el b/flx-ido.el
index 7cb18b0efb..1b9648fdbd 100644
--- a/flx-ido.el
+++ b/flx-ido.el
@@ -178,7 +178,14 @@ If filtered item count is still greater than
`flx-ido-threshold', then use flex.
finally return matches)))
(flx-ido-decorate (delete-consecutive-dups
(sort matches
- (lambda (x y) (> (cadr x) (cadr y))))
+ (lambda (x y)
+ (let ((scorex (cadr x))
+ (scorey (cadr y))
+ (strx (car x))
+ (stry (car y)))
+ (if (= scorex scorey)
+ (not (string< stry strx))
+ (> scorex scorey)))))
t)))
flex-result)))
diff --git a/misc/flx-helm-demo.el b/misc/flx-helm-demo.el
index 34fb4d17fe..417941270a 100644
--- a/misc/flx-helm-demo.el
+++ b/misc/flx-helm-demo.el
@@ -26,8 +26,14 @@ The score info we add here is later removed with another
filter."
(setcdr candidate (cons (cdr candidate) score))
candidate)))
(setq res (sort res
- (lambda (a b)
- (> (caddr a) (caddr b)))))
+ (lambda (x y)
+ (let ((scorex (caddr x))
+ (scorey (caddr y))
+ (strx (car x))
+ (stry (car y)))
+ (if (= scorex scorey)
+ (not (string< stry strx))
+ (> scorex scorey))))))
(loop for item in res
for index from 0
for score = (cddr item)
