[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/jinx b138e6b3d7 2/4: Fix jinx-previous
From: |
ELPA Syncer |
Subject: |
[elpa] externals/jinx b138e6b3d7 2/4: Fix jinx-previous |
Date: |
Fri, 28 Apr 2023 08:58:31 -0400 (EDT) |
branch: externals/jinx
commit b138e6b3d7ee74f2a105e46d82523117ab3263ee
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Fix jinx-previous
---
jinx.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/jinx.el b/jinx.el
index 9a3a5b37ce..77634a3985 100644
--- a/jinx.el
+++ b/jinx.el
@@ -841,8 +841,10 @@ If prefix argument ALL non-nil correct all misspellings."
(unless (= n 0)
(if (minibufferp)
(throw 'jinx--goto n)
- (let ((overlays (jinx--force-overlays (point-min) (point-max))))
- (goto-char (overlay-end (nth (mod n (length overlays)) overlays)))))))
+ (let ((ov (jinx--force-overlays (point-min) (point-max))))
+ (unless (or (> n 0) (<= (overlay-start (car ov)) (point) (overlay-end
(car ov))))
+ (cl-incf n))
+ (goto-char (overlay-end (nth (mod n (length ov)) ov)))))))
(defun jinx-previous (n)
"Go to to Nth previous misspelling."