[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/corfu ced6aca: Ensure that border is drawn when popup i
From: |
ELPA Syncer |
Subject: |
[elpa] externals/corfu ced6aca: Ensure that border is drawn when popup is displayed at x=0 |
Date: |
Thu, 9 Dec 2021 15:57:15 -0500 (EST) |
branch: externals/corfu
commit ced6aca1b9f4509c6c519df00b34be640f7dcbfd
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Ensure that border is drawn when popup is displayed at x=0
---
corfu.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/corfu.el b/corfu.el
index b134744..fb2cd27 100644
--- a/corfu.el
+++ b/corfu.el
@@ -385,9 +385,9 @@ The completion backend can override this with
(after-make-frame-functions)
(edge (window-inside-pixel-edges))
(lh (default-line-height))
- (x (max 0 (min (+ (car edge) x
- (- (alist-get 'child-frame-border-width
corfu--frame-parameters)))
- (- (frame-pixel-width) width))))
+ (border (alist-get 'child-frame-border-width corfu--frame-parameters))
+ (x (max border (min (+ (car edge) x (- border))
+ (- (frame-pixel-width) width))))
(yb (+ (cadr edge) (window-tab-line-height) y lh))
(y (if (> (+ yb height lh lh) (frame-pixel-height))
(- yb height lh 1)
@@ -401,8 +401,7 @@ The completion backend can override this with
(minibuffer . ,(minibuffer-window (window-frame)))
(line-spacing . ,line-spacing)
;; Set `internal-border-width' for Emacs 27
- (internal-border-width
- . ,(alist-get 'child-frame-border-width
corfu--frame-parameters))
+ (internal-border-width . ,border)
,@corfu--frame-parameters))))
;; XXX HACK Setting the same frame-parameter/face-background is not a nop
(BUG!).
;; Check explicitly before applying the setting.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/corfu ced6aca: Ensure that border is drawn when popup is displayed at x=0,
ELPA Syncer <=