[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/popon 122ca46019: Fix #9, fix akib/emacs-corfu-terminal#15
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/popon 122ca46019: Fix #9, fix akib/emacs-corfu-terminal#15: Don't error on Emacs < 29 |
Date: |
Thu, 3 Nov 2022 01:59:09 -0400 (EDT) |
branch: elpa/popon
commit 122ca460199760fcd4d7099dcd04a34c8190e4b1
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>
Fix #9, fix akib/emacs-corfu-terminal#15: Don't error on Emacs < 29
---
popon.el | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/popon.el b/popon.el
index c043272f1a..bde604bb32 100644
--- a/popon.el
+++ b/popon.el
@@ -600,8 +600,13 @@ 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) 'use-window)))
+ (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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/popon 122ca46019: Fix #9, fix akib/emacs-corfu-terminal#15: Don't error on Emacs < 29,
ELPA Syncer <=