[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/posframe 588642d 1/2: * posframe.el (posframe--create-p
From: |
ELPA Syncer |
Subject: |
[elpa] externals/posframe 588642d 1/2: * posframe.el (posframe--create-posframe): ignore set-face-background error. |
Date: |
Tue, 2 Mar 2021 04:57:10 -0500 (EST) |
branch: externals/posframe
commit 588642d599631afe342fb1dbc813be08abb2cb84
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@163.com>
* posframe.el (posframe--create-posframe): ignore set-face-background error.
---
posframe.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/posframe.el b/posframe.el
index 17904f0..7dab1cf 100644
--- a/posframe.el
+++ b/posframe.el
@@ -356,7 +356,11 @@ This posframe's buffer is BUFFER-OR-NAME."
(desktop-dont-save . t))))
(when border-color
(set-face-background 'internal-border border-color posframe--frame)
- (set-face-background 'child-frame-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
+ (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'
(unless respect-mode-line