[nongnu] elpa/helm 84a49c0053: Fix helm-fuzzy-matching-sort-fn-preserve-ties-order

[ELPA Syncer]

branch: elpa/helm
commit 84a49c005310b6f823ae554c0d17c3b63dce6f59
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Fix helm-fuzzy-matching-sort-fn-preserve-ties-order
    
    This function has been wrote when Helm had only its own fuzzy algo,
    now helm use flex nearly everywhere force the usage of old score fn to
    ensure no scoring is done according to length of candidates.
---
 helm-core.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/helm-core.el b/helm-core.el
index 0ca6d5e70c..ea49a88805 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -4637,7 +4637,8 @@ The default function, 
`helm-fuzzy-matching-default-sort-fn',
 sorts ties by length, shortest first.  This function may be more
 useful when the order of the candidates is meaningful, e.g. with
 `recentf-list'."
-  (helm-fuzzy-matching-default-sort-fn-1 candidates nil nil t))
+  (let ((helm-fuzzy-default-score-fn #'helm-fuzzy-helm-style-score))
+    (helm-fuzzy-matching-default-sort-fn-1 candidates nil nil t)))
 
 (defun helm--maybe-get-migemo-pattern (pattern &optional diacritics)
   (or (and helm-migemo-mode