branch: elpa/popon
commit abdb78dc8baabfd0a7b4747ff212e7d4eb233a30
Author: Akib Azmain Turja <a...@disroot.org>
Commit: Akib Azmain Turja <a...@disroot.org>
Fix popon-x-y-at-pos
---
popon.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/popon.el b/popon.el
index 5e74c6c10f..6ecdb94044 100644
--- a/popon.el
+++ b/popon.el
@@ -546,8 +546,14 @@ NOTE: This uses `posn-at-point', which is slow. So try to
minimize calls
to this function."
(let ((window-start-x-y (posn-col-row (posn-at-point (window-start))))
(point-x-y (posn-col-row (posn-at-point point))))
- (cons (- (save-excursion (goto-char point) (current-column))
- (window-hscroll))
+ (cons (if (and (or (not truncate-lines) word-wrap)
+ (if truncate-partial-width-windows
+ (>= (window-total-width)
+ truncate-partial-width-windows)
+ t))
+ (- (car point-x-y) (car window-start-x-y))
+ (- (save-excursion (goto-char point) (current-column))
+ (window-hscroll)))
(- (cdr point-x-y) (cdr window-start-x-y)))))
;;;###autoload
