summaryrefslogtreecommitdiff
path: root/extensions
diff options
context:
space:
mode:
authorDaniel Mendler <mail@daniel-mendler.de>2025-12-14 19:31:05 +0100
committerDaniel Mendler <mail@daniel-mendler.de>2025-12-14 19:31:05 +0100
commit41bad735bc06491cb01546387dc4e45d36ee6a12 (patch)
tree284cb8b190ef36e3a2041f7bc714fde492bc950c /extensions
parent1ac37ee6748adfe40371c335d7165cee6b4cd182 (diff)
New defcustom corfu-border-width
Diffstat (limited to 'extensions')
-rw-r--r--extensions/corfu-popupinfo.el8
1 files changed, 2 insertions, 6 deletions
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index dcd678e..414d01e 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -299,9 +299,7 @@ form (X Y WIDTH HEIGHT DIR)."
(pcase-let*
((cw (default-font-width))
(lh (default-line-height))
- (border (if (display-graphic-p corfu--frame)
- (alist-get 'internal-border-width corfu--frame-parameters)
- 0))
+ (border (if (display-graphic-p corfu--frame) corfu-border-width 0))
(`(,_pfx ,_pfy ,pfw ,pfh)
(corfu-popupinfo--frame-geometry (frame-parent corfu--frame)))
(`(,cfx ,cfy ,cfw ,cfh) (corfu-popupinfo--frame-geometry corfu--frame))
@@ -371,9 +369,7 @@ 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 (if (display-graphic-p corfu--frame)
- (alist-get 'internal-border-width corfu--frame-parameters)
- 0))
+ (pcase-let* ((border (if (display-graphic-p corfu--frame) corfu-border-width 0))
(`(,area-x ,area-y ,area-w ,area-h ,area-d)
(corfu-popupinfo--area
(if cand-changed