[Top][All Lists]

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

[elpa] externals/corfu 155af8d 4/4: Simplify

From: ELPA Syncer
Subject: [elpa] externals/corfu 155af8d 4/4: Simplify
Date: Fri, 16 Jul 2021 18:57:08 -0400 (EDT)

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

 corfu.el | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/corfu.el b/corfu.el
index 2fe8f35..4417154 100644
--- a/corfu.el
+++ b/corfu.el
@@ -323,14 +323,12 @@ filter string with spaces is allowed."
     ;; Check explicitly before applying the setting.
     ;; Without the check, the frame flickers on Mac.
     ;; With the check, the inner frame sometimes does not get updated 
sometimes (BUG!).
-    (let* ((curr (frame-parameter corfu--frame 'background-color))
-          (new (face-attribute 'corfu-background :background)))
-      (unless (equal curr new)
+    (let ((new (face-attribute 'corfu-background :background)))
+      (unless (equal (frame-parameter corfu--frame 'background-color) 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)
+      (unless (equal (face-attribute face :background corfu--frame) new)
        (set-face-background face new corfu--frame)))
     (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

reply via email to

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