[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/posframe fb42be7 1/2: * posframe.el (posframe--create-p
From: |
ELPA Syncer |
Subject: |
[elpa] externals/posframe fb42be7 1/2: * posframe.el (posframe--create-posframe): Use facep to test child-frame-border. |
Date: |
Thu, 11 Mar 2021 04:57:09 -0500 (EST) |
branch: externals/posframe
commit fb42be7793212f9faa59c8d409a9c700207e6986
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@163.com>
* posframe.el (posframe--create-posframe): Use facep to test
child-frame-border.
---
posframe.el | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/posframe.el b/posframe.el
index 511cef1..4070292 100644
--- a/posframe.el
+++ b/posframe.el
@@ -356,10 +356,7 @@ This posframe's buffer is BUFFER-OR-NAME."
(desktop-dont-save . t))))
(when border-color
(set-face-background 'internal-border border-color posframe--frame)
- ;; FIXME: ignore errors on emacs version which
- ;; have no child-frame-border face.
- ;; maybe have other better way to do this job.
- (ignore-errors
+ (when (facep 'child-frame-border)
(set-face-background 'child-frame-border border-color
posframe--frame)))
(let ((posframe-window (frame-root-window posframe--frame)))
;; This method is more stable than 'setq mode/header-line-format nil'