[elpa] externals/corfu 13a6f6b57d 2/6: Set the fringe background color for the created child frame

[ELPA Syncer]

branch: externals/corfu
commit 13a6f6b57d7b0589286f7aab539088dddd0e5f21
Author: Yuwei Tian <ibluefocus@outlook.com>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Set the fringe background color for the created child frame
---
 corfu.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/corfu.el b/corfu.el
index b29d0fec74..54f2ad6345 100644
--- a/corfu.el
+++ b/corfu.el
@@ -446,11 +446,13 @@ The created frame can be accessed via FRAME."
     ;; frame flickers on Mac.
     ;; XXX HACK We have to apply the face background before adjusting the frame
     ;; parameter, otherwise the border is not updated (BUG!).
-    (let* ((face (if (facep 'child-frame-border) 'child-frame-border 
'internal-border))
-           (new (face-attribute 'corfu-border :background nil 'default)))
+    (let ((face (if (facep 'child-frame-border) 'child-frame-border 
'internal-border))
+          (new (face-attribute 'corfu-border :background nil 'default)))
       (unless (equal (face-attribute face :background frame 'default) new)
         (set-face-background face new frame)))
     (let ((new (face-attribute 'corfu-default :background nil 'default)))
+      (unless (equal (face-attribute 'fringe :background frame 'default) new)
+        (set-face-background 'fringe new frame))
       (unless (equal (frame-parameter frame 'background-color) new)
         (set-frame-parameter frame 'background-color new)))
     (let ((win (frame-root-window frame)))