fix child border in Emacs 28
* eldoc-box.el (eldoc-box--get-frame): Set child-frame-border's background to border color.
This commit is contained in:
parent
f66f8d0641
commit
13d207d408
@ -331,6 +331,10 @@ Checkout `lsp-ui-doc--make-frame', `lsp-ui-doc--move-frame'."
|
|||||||
(set-window-dedicated-p window t)
|
(set-window-dedicated-p window t)
|
||||||
(redirect-frame-focus frame (frame-parent frame))
|
(redirect-frame-focus frame (frame-parent frame))
|
||||||
(set-face-attribute 'internal-border frame :inherit 'eldoc-box-border)
|
(set-face-attribute 'internal-border frame :inherit 'eldoc-box-border)
|
||||||
|
(when (facep 'child-frame-border)
|
||||||
|
(set-face-background 'child-frame-border
|
||||||
|
(face-attribute 'eldoc-box-border :background)
|
||||||
|
frame))
|
||||||
;; set size
|
;; set size
|
||||||
(eldoc-box--update-childframe-geometry frame window)
|
(eldoc-box--update-childframe-geometry frame window)
|
||||||
(setq eldoc-box--frame frame)
|
(setq eldoc-box--frame frame)
|
||||||
|
Loading…
Reference in New Issue
Block a user