branch: externals/corfu
commit 09adbffdfadc8cae868da952fe7acc2ca26edbd5
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Fix frame position computation at the right edge
---
corfu.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/corfu.el b/corfu.el
index db960c4e82..260c2d7a41 100644
--- a/corfu.el
+++ b/corfu.el
@@ -1141,7 +1141,8 @@ A scroll bar is displayed from LO to LO+BAR."
(edge (window-inside-pixel-edges))
(border (if graphic corfu-border-width 0))
(x (max 0 (min (+ (car edge) (- (or (car pos) 0) ml (* cw off)
border))
- (- (frame-pixel-width) width))))
+ (- (frame-pixel-width) width
+ (if graphic (+ ml mr (* 2 border)) 0)))))
(yb (+ (cadr edge) (or (cdr pos) 0) lh
(static-if (< emacs-major-version 31)
(window-tab-line-height) 0)))
(y (if (> (+ yb (* corfu-count ch) lh lh) (frame-pixel-height))
