[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/symbol-overlay ab9ca20024 1/5: Fix get overlays when point
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/symbol-overlay ab9ca20024 1/5: Fix get overlays when point is at end of symbol |
Date: |
Tue, 17 Jan 2023 08:00:23 -0500 (EST) |
branch: elpa/symbol-overlay
commit ab9ca200243735824e74b4c83b34018cc351d25a
Author: 我没有抓狂 <blindingdark@outlook.com>
Commit: GitHub <noreply@github.com>
Fix get overlays when point is at end of symbol
---
symbol-overlay.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/symbol-overlay.el b/symbol-overlay.el
index ff14ee5006..701a3d7262 100644
--- a/symbol-overlay.el
+++ b/symbol-overlay.el
@@ -239,7 +239,9 @@ If EXCLUDE is non-nil, get all overlays excluding those
belong to SYMBOL."
(if (= dir 0)
(overlays-in (point-min) (point-max))
(let ((overlays (cond ((< dir 0) (overlays-in (point-min) (point)))
- ((> dir 0) (overlays-in (point) (point-max))))))
+ ((> dir 0) (overlays-in
+ (if (looking-at-p "\\_>") (1- (point))
(point))
+ (point-max))))))
(seq-filter
(lambda (ov)
(let ((value (overlay-get ov 'symbol))