[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/corfu e335a13 2/4: Revert "corfu--make-frame: Apply fra

From: ELPA Syncer
Subject: [elpa] externals/corfu e335a13 2/4: Revert "corfu--make-frame: Apply frame/face settings only if changed (Fix #37)"
Date: Fri, 16 Jul 2021 18:57:08 -0400 (EDT)

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

    Revert "corfu--make-frame: Apply frame/face settings only if changed (Fix 
    This reverts commit 1acc02809b204d38be2d72ac4ffa96a06ef0c45b.
 corfu.el | 17 ++++++-----------
 1 file changed, 6 insertions(+), 11 deletions(-)

diff --git a/corfu.el b/corfu.el
index 5abe8f6..ebb1d21 100644
--- a/corfu.el
+++ b/corfu.el
@@ -319,17 +319,12 @@ filter string with spaces is allowed."
                              . ,(alist-get 'child-frame-border-width 
-    ;;; Setting the same frame-parameter/face-background is not a nop (bug?).
-    ;;; Check explicitly before applying the setting.
-    (let* ((curr (frame-parameter corfu--frame 'background-color))
-          (new (face-attribute 'corfu-background :background)))
-      (unless (equal curr new)
-       (set-frame-parameter corfu--frame 'background-color new)))
-    (let* ((face (if (facep 'child-frame-border) 'child-frame-border 
-          (curr (face-attribute face :background corfu--frame))
-          (new (face-attribute 'corfu-border :background)))
-      (unless (equal curr new)
-       (set-face-background face new corfu--frame)))
+    (set-face-background
+     (if (facep 'child-frame-border) 'child-frame-border 'internal-border)
+     (face-attribute 'corfu-border :background) corfu--frame)
+    (set-frame-parameter
+     corfu--frame 'background-color
+     (face-attribute 'corfu-background :background))
     (set-window-buffer (frame-root-window corfu--frame) buffer)
     ;; XXX HACK Make the frame invisible before moving the popup from above to 
below the line in
     ;; order to avoid flicker.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]