emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/posframe f844c39: * posframe.el (posframe--create-posfr


From: ELPA Syncer
Subject: [elpa] externals/posframe f844c39: * posframe.el (posframe--create-posframe): set background twice only have border color.
Date: Sat, 30 Oct 2021 19:57:23 -0400 (EDT)

branch: externals/posframe
commit f844c3973b7c165b58ab4d8697f05318e54a852d
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@163.com>

    * posframe.el (posframe--create-posframe): set background twice only have 
border color.
---
 posframe.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/posframe.el b/posframe.el
index dc609b6..ba39010 100644
--- a/posframe.el
+++ b/posframe.el
@@ -259,13 +259,13 @@ ACCEPT-FOCUS."
            (if (facep 'child-frame-border)
                'child-frame-border
              'internal-border)
-           border-color posframe--frame))
-        ;; HACK: Set face background after border color, otherwise the
-        ;; border is not updated (BUG!).
-        (when (version< emacs-version "28.0")
-          (set-frame-parameter
-           posframe--frame 'background-color
-           (face-attribute 'default :background posframe--frame)))
+           border-color posframe--frame)
+          ;; HACK: Set face background after border color, otherwise the
+          ;; border is not updated (BUG!).
+          (when (version< emacs-version "28.0")
+            (set-frame-parameter
+             posframe--frame 'background-color
+             (face-attribute 'default :background posframe--frame))))
         (let ((posframe-window (frame-root-window posframe--frame)))
           ;; This method is more stable than 'setq mode/header-line-format nil'
           (unless respect-mode-line



reply via email to

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