[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/posframe f844c39: * posframe.el (posframe--create-posframe): set background twice only have border color.,
ELPA Syncer <=