[elpa] externals/corfu 86f1eda: Refactoring

[ELPA Syncer]

branch: externals/corfu
commit 86f1edab65550af86f308dca7e863cd295351e0c
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Refactoring
---
 corfu.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/corfu.el b/corfu.el
index d0470de..e1a8895 100644
--- a/corfu.el
+++ b/corfu.el
@@ -47,7 +47,7 @@
   "Maximal number of candidates to show."
   :type 'integer)
 
-(defcustom corfu-scroll-margin 0
+(defcustom corfu-scroll-margin 2
   "Number of lines at the top and bottom when scrolling.
 The value should lie between 0 and corfu-count/2."
   :type 'integer)
@@ -648,13 +648,17 @@ A scroll bar is displayed from LO to LO+BAR."
                             suffix)
                     width)))))
 
-(defun corfu--show-candidates (beg end str)
-  "Update display given BEG, END and STR."
+(defun corfu--update-scroll ()
+  "Update scroll position."
   (let ((off (max (min corfu-scroll-margin (/ corfu-count 2)) 0))
         (corr (if (= corfu-scroll-margin (/ corfu-count 2)) (1- (mod 
corfu-count 2)) 0)))
     (setq corfu--scroll (min (max 0 (- corfu--total corfu-count))
                              (max 0 (+ corfu--index off 1 (- corfu-count))
-                                  (min (- corfu--index off corr) 
corfu--scroll)))))
+                                  (min (- corfu--index off corr) 
corfu--scroll))))))
+
+(defun corfu--show-candidates (beg end str)
+  "Update display given BEG, END and STR."
+  (corfu--update-scroll)
   (pcase-let* ((curr (- corfu--index corfu--scroll))
                (last (min (+ corfu--scroll corfu-count) corfu--total))
                (bar (ceiling (* corfu-count corfu-count) corfu--total))