[elpa] externals/vlf d9cc6fb 264/310: Fix vlf-tune-optimal-load in case best value prunes slower times leaving

[Stefan Monnier]

branch: externals/vlf
commit d9cc6fb65e25efd442be703788e074706434c528
Author: Andrey Kotlarski <m00naticus@gmail.com>
Commit: Andrey Kotlarski <m00naticus@gmail.com>

    Fix vlf-tune-optimal-load in case best value prunes slower times leaving
    all-less flag on.
---
 vlf-tune.el | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/vlf-tune.el b/vlf-tune.el
index 575fb1f..adf8468 100644
--- a/vlf-tune.el
+++ b/vlf-tune.el
@@ -389,16 +389,18 @@ confine search to this region."
             (let ((time-diff (vlf-tune-score types idx t
                                              (+ vlf-tune-load-time
                                                 best-time-diff))))
-              (when time-diff
-                (setq time-diff (if (< vlf-tune-load-time time-diff)
-                                    (progn (setq all-less nil)
-                                           (- time-diff
-                                              vlf-tune-load-time))
-                                  (setq all-more nil)
-                                  (- vlf-tune-load-time time-diff)))
-                (if (< time-diff best-time-diff)
-                    (setq best-idx idx
-                          best-time-diff time-diff))))
+              (if time-diff
+                  (progn
+                    (setq time-diff (if (< vlf-tune-load-time time-diff)
+                                        (progn (setq all-less nil)
+                                               (- time-diff
+                                                  vlf-tune-load-time))
+                                      (setq all-more nil)
+                                      (- vlf-tune-load-time time-diff)))
+                    (if (< time-diff best-time-diff)
+                        (setq best-idx idx
+                              best-time-diff time-diff)))
+                (setq all-less nil)))
             (setq idx (1+ idx)))
           (* vlf-tune-step (1+ (cond ((or (zerop best-time-diff)
                                           (eq all-less all-more))