jessieh/eldoc-frame
jessieh/eldoc-frame
1
Fork 0
Code Issues Pull Requests Releases Activity

Fix fringe

Browse Source
This commit is contained in:
Yuan Fu 2019-10-03 01:06:55 -04:00
parent 6c5c9d57d8
commit 5ca8a2cef5
No known key found for this signature in database
GPG Key ID: 56E19BC57664A442
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
eldoc-box.el
View File

@ -80,7 +80,8 @@ in that mode the childframe is cleared as soon as point moves.")
(internal-border-width . 1) (internal-border-width . 1)
(vertical-scroll-bars . nil) (vertical-scroll-bars . nil)
(horizontal-scroll-bars . nil) (horizontal-scroll-bars . nil)
(right-fringe . 0) (right-fringe . 3)
(left-fringe . 3)
(menu-bar-lines . 0) (menu-bar-lines . 0)
(tool-bar-lines . 0) (tool-bar-lines . 0)
(line-spacing . 0) (line-spacing . 0)
@ -349,8 +350,11 @@ Checkout `lsp-ui-doc--make-frame', `lsp-ui-doc--move-frame'."
buffer buffer
`((child-frame-parameters . ,parameter)))) `((child-frame-parameters . ,parameter))))
(setq frame (window-frame window))) (setq frame (window-frame window)))
;; workaround
;; (set-frame-parameter frame 'left-fringe (alist-get 'left-fringe eldoc-box-frame-parameters))
;; (set-frame-parameter frame 'right-fringe (alist-get 'right-fringe eldoc-box-frame-parameters))
(set-face-attribute 'fringe frame :background nil :inherit 'eldoc-box-body) (set-face-attribute 'fringe frame :background nil :inherit 'eldoc-box-body)
(fringe-mode 3)
(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)