[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/popon 90e477eb95 3/3: Revert pull request 'make popon-x-y-
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/popon 90e477eb95 3/3: Revert pull request 'make popon-x-y-at-pos accept posn' (#12) |
Date: |
Tue, 27 Jun 2023 16:02:33 -0400 (EDT) |
branch: elpa/popon
commit 90e477eb95910b559a299ad727085415bf9e5127
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>
Revert pull request 'make popon-x-y-at-pos accept posn' (#12)
This reverts commit 5329d1b47a641341dc15a67daad2dd7e2ca6f171,
reversing changes made to c7a7e03aaf1e29288ef0bc70ce2aa3bbbcd07cee.
---
popon.el | 17 ++++++++---------
1 file changed, 8 insertions(+), 9 deletions(-)
diff --git a/popon.el b/popon.el
index 61e522be94..1b20a23020 100644
--- a/popon.el
+++ b/popon.el
@@ -599,15 +599,14 @@ 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* ((pos (if (posnp point) point (posn-at-point point)))
- (window-start-x-y
- (if (>= emacs-major-version 29)
- (posn-col-row (posn-at-point (window-start)) 'use-window)
- (posn-col-row (posn-at-point (window-start)))))
- (point-x-y
- (if (>= emacs-major-version 29)
- (posn-col-row pos 'use-window)
- (posn-col-row pos))))
+ (let ((window-start-x-y
+ (if (>= emacs-major-version 29)
+ (posn-col-row (posn-at-point (window-start)) 'use-window)
+ (posn-col-row (posn-at-point (window-start)))))
+ (point-x-y
+ (if (>= emacs-major-version 29)
+ (posn-col-row (posn-at-point point) 'use-window)
+ (posn-col-row (posn-at-point point)))))
(cons (if (and (or (not truncate-lines) word-wrap)
(if truncate-partial-width-windows
(>= (window-total-width)