[elpa] externals/corfu 5e47870fc6 1/2: Also set child-frame-border-width

[ELPA Syncer]

branch: externals/corfu
commit 5e47870fc6103908a3b7d63cb7882c7095f53dc2
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Also set child-frame-border-width
---
 corfu.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/corfu.el b/corfu.el
index 16d0546718..353516c9de 100644
--- a/corfu.el
+++ b/corfu.el
@@ -464,6 +464,11 @@ FRAME is the existing frame."
                    `((parent-frame . ,parent)
                      (minibuffer . ,(minibuffer-window parent))
                      (width . 0) (height . 0) (visibility . nil)
+                     ;; XXX HACK The Emacs Mac Port does not support
+                     ;; `internal-border-width', we also have to set
+                     ;; `child-frame-border-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
@@ -471,7 +476,10 @@ FRAME is the existing frame."
     ;; parameter, otherwise the border is not updated.
     (let ((new (face-attribute 'corfu-border :background nil 'default)))
       (unless (equal (face-attribute 'internal-border :background frame 
'default) new)
-        (set-face-background 'internal-border new frame)))
+        (set-face-background 'internal-border new frame))
+      (unless (or (not (facep 'child-frame-border))
+                  (equal (face-attribute 'child-frame-border :background frame 
'default) new))
+        (set-face-background 'child-frame-border new frame)))
     ;; Reset frame parameters if they changed.  For example `tool-bar-mode'
     ;; overrides the parameter `tool-bar-lines' for every frame, including 
child
     ;; frames.  The child frame API is a pleasure to work with.  It is full of