[nongnu] elpa/popon d45e202af4 1/2: popon-x-y-at-pos: Honor text scaling

[ELPA Syncer]

branch: elpa/popon
commit d45e202af48954d5b2851251eac5b26767de1393
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    popon-x-y-at-pos: Honor text scaling
---
 popon.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/popon.el b/popon.el
index 4846103640..d85f91418b 100644
--- a/popon.el
+++ b/popon.el
@@ -599,9 +599,9 @@ Return nil if POINT is not in visible text area.
 
 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))))
+  (let ((window-start-x-y
+         (posn-col-row (posn-at-point (window-start))))
+        (point-x-y (posn-col-row (posn-at-point point) 'use-window)))
     (cons (if (and (or (not truncate-lines) word-wrap)
                    (if truncate-partial-width-windows
                        (>= (window-total-width)