[elpa] externals/corfu 568a770400: corfu-popupinfo--get-location: Support scrolling a bit further

[ELPA Syncer]

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

    corfu-popupinfo--get-location: Support scrolling a bit further
---
 extensions/corfu-popupinfo.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 88d4fc09ce..286bbc9c44 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -157,7 +157,8 @@ See `frame-edges' for details.")
               (goto-char (point-min))
               (forward-line (1- (cdr loc))))
             (let ((beg (point)))
-              (forward-line (* 2 corfu-popupinfo-max-height))
+              ;; Support a little bit of scrolling.
+              (forward-line (* 10 corfu-popupinfo-max-height))
               (when jit-lock-mode
                 (jit-lock-fontify-now beg (point)))
               (setq res (buffer-substring beg (point)))