branch: externals/corfu
commit b74c649c27a06813b826b30f870b40c5784f127b
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Set child-frame-border-width dynamically based on internal-border-width
---
corfu.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/corfu.el b/corfu.el
index e160556d12..dd89efb66b 100644
--- a/corfu.el
+++ b/corfu.el
@@ -340,7 +340,6 @@ settings `corfu-auto-delay', `corfu-auto-prefix' and
(border-width . 0)
(outer-border-width . 0)
(internal-border-width . 1)
- (child-frame-border-width . 1)
(vertical-scroll-bars . nil)
(horizontal-scroll-bars . nil)
(menu-bar-lines . 0)
@@ -499,6 +498,8 @@ FRAME is the existing frame."
(width . 0) (height . 0) (visibility . nil)
(right-fringe . ,right-fringe-width)
(left-fringe . ,left-fringe-width)
+ (child-frame-border-width
+ . ,(alist-get 'internal-border-width
corfu--frame-parameters))
,@corfu--frame-parameters))))
;; XXX HACK Setting the same frame-parameter/face-background is not a nop.
;; Check before applying the setting. Without the check, the frame flickers
@@ -523,6 +524,8 @@ FRAME is the existing frame."
(font . ,(frame-parameter parent 'font))
(right-fringe . ,right-fringe-width)
(left-fringe . ,left-fringe-width)
+ (child-frame-border-width
+ . ,(alist-get 'internal-border-width
corfu--frame-parameters))
,@corfu--frame-parameters))
(diff (cl-loop for p in should for (k . v) = p
unless (equal (alist-get k is) v) collect p)))
