diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2025-12-14 19:31:05 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2025-12-14 19:31:05 +0100 |
| commit | 41bad735bc06491cb01546387dc4e45d36ee6a12 (patch) | |
| tree | 284cb8b190ef36e3a2041f7bc714fde492bc950c /extensions/corfu-popupinfo.el | |
| parent | 1ac37ee6748adfe40371c335d7165cee6b4cd182 (diff) | |
New defcustom corfu-border-width
Diffstat (limited to 'extensions/corfu-popupinfo.el')
| -rw-r--r-- | extensions/corfu-popupinfo.el | 8 |
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 |