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

Fix window position-finding

Browse Source
This commit is contained in:
Yuan Fu 2019-11-02 10:33:49 -04:00
parent 33b73c9169
commit 9137860707
No known key found for this signature in database
GPG Key ID: 56E19BC57664A442
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
eldoc-box.el
View File

@ -247,13 +247,12 @@ Position is calculated base on WIDTH and HEIGHT of childframe text window"
The coordinate is relative to the native frame. The coordinate is relative to the native frame.
WINDOW nil means use selected window." WINDOW nil means use selected window."
(let* ((pos (posn-at-point point window)) (let* ((pos (pos-visible-in-window-p point window t))
(x-y (posn-x-y pos)) (x (car pos))
(window (posn-window pos)) (y (cadr pos))
(edges (window-body-pixel-edges window))) (edges (window-body-pixel-edges window)))
(cons (+ (car x-y) (car edges)) (cons (+ x (car edges))
(+ (cdr x-y) (cadr edges) (+ y (cadr edges)))))
(- (window-header-line-height window))))))
(defun eldoc-box--default-at-point-position-function-1 (width height) (defun eldoc-box--default-at-point-position-function-1 (width height)
"See `eldoc-box--default-at-point-position-function'." "See `eldoc-box--default-at-point-position-function'."