branch: externals/corfu
commit 260f514a62dc5624cfa926f0e9f3ab53fffabd70
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Improve vertical positioning (Fix #570)
---
corfu.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/corfu.el b/corfu.el
index b9b8b7d37b..a53bad994b 100644
--- a/corfu.el
+++ b/corfu.el
@@ -1034,7 +1034,7 @@ Auto completion is only performed if the tick did not
change."
WIDTH is the width of the popup.
The current candidate CURR is highlighted.
A scroll bar is displayed from LO to LO+BAR."
- (let ((lh (default-line-height)))
+ (let ((lh (cdr (posn-object-width-height pos))))
(with-current-buffer (corfu--make-buffer " *corfu*")
(let* ((ch (default-line-height))
(cw (default-font-width))
