From c8aee0094034a80e49f0fd96d1806a681af5b1db Mon Sep 17 00:00:00 2001 From: Ahmed Shariff Date: Fri, 25 Sep 2020 01:21:30 -0500 Subject: [PATCH] Adding `image-left` as a parameter to specify arrow positions in x-axis --- lisp/pdf-util.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/pdf-util.el b/lisp/pdf-util.el index cdb0f263..78adfd06 100644 --- a/lisp/pdf-util.el +++ b/lisp/pdf-util.el @@ -678,14 +678,19 @@ string." ,@tooltip-frame-parameters))) (tooltip-show text))) -(defun pdf-util-tooltip-arrow (image-top &optional timeout) +(defun pdf-util-tooltip-arrow (image-top &optional timeout image-left) (pdf-util-assert-pdf-window) (when (floatp image-top) (setq image-top (round (* image-top (cdr (pdf-view-image-size)))))) + (when (floatp image-left) + (setq image-left + (round (* image-left (car (pdf-view-image-size)))))) (let* (x-gtk-use-system-tooltips ;allow for display property in tooltip - (dx (+ (or (car (window-margins)) 0) - (car (window-fringes)))) + (dx (if image-left + image-left + (+ (or (car (window-margins)) 0) + (car (window-fringes))))) (dy image-top) (pos (list dx dy dx (+ dy (* 2 (frame-char-height))))) (vscroll