[elpa] externals/vertico db68f67 2/2: Use pixel precise height computation (Fix #14)

[Protesilaos Stavrou]

branch: externals/vertico
commit db68f67e6ef123c81212c6ef066ec4952e71ac81
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Use pixel precise height computation (Fix #14)
---
 vertico.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/vertico.el b/vertico.el
index 55d8742..de12a37 100644
--- a/vertico.el
+++ b/vertico.el
@@ -376,10 +376,13 @@
   (move-overlay vertico--candidates-ov (point-max) (point-max))
   (overlay-put vertico--candidates-ov 'after-string
                (apply #'concat #(" " 0 1 (cursor t)) (and lines "\n") lines))
-  (let* ((resize (default-value 'resize-mini-windows))
-         (delta (- (max (length lines) (if resize 0 vertico-count)) 
(window-height) -1)))
-    (when (or (> delta 0) (eq resize t))
-      (window-resize nil delta))))
+  (let* ((lh (default-line-height))
+         (resize (default-value 'resize-mini-windows))
+         (dp (- (max (cdr (window-text-pixel-size))
+                     (* lh (1+ (if resize (length lines) vertico-count))))
+                (window-pixel-height)))
+         (dl (ceiling dp lh)))
+    (when (or (> dl 0) (eq resize t)) (window-resize nil dl))))
 
 (defun vertico--display-count ()
   "Update count overlay `vertico--count-ov'."