branch: externals/corfu
commit 7a3e8a748a51b6e9454e5cc8a50c05ebd7552f99
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
corfu-popupinfo--show: Fix misalignment on TTY
---
extensions/corfu-popupinfo.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index d17fedca33..9d24e03a8a 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -293,7 +293,9 @@ form (X Y WIDTH HEIGHT DIR)."
(pcase-let*
((cw (default-font-width))
(lh (default-line-height))
- (border (alist-get 'internal-border-width corfu--frame-parameters))
+ (border (if (display-graphic-p corfu--frame)
+ (alist-get 'internal-border-width corfu--frame-parameters)
+ 0))
(`(,_pfx ,_pfy ,pfw ,pfh)
(corfu-popupinfo--frame-geometry (frame-parent corfu--frame)))
(`(,cfx ,cfy ,cfw ,cfh) (corfu-popupinfo--frame-geometry corfu--frame))
@@ -363,7 +365,9 @@ form (X Y WIDTH HEIGHT DIR)."
(corfu-popupinfo--hide)
(setq cand-changed nil coords-changed nil)))
(when (or cand-changed coords-changed)
- (pcase-let* ((border (alist-get 'internal-border-width
corfu--frame-parameters))
+ (pcase-let* ((border (if (display-graphic-p corfu--frame)
+ (alist-get 'internal-border-width
corfu--frame-parameters)
+ 0))
(`(,area-x ,area-y ,area-w ,area-h ,area-d)
(corfu-popupinfo--area
(if cand-changed
