Don't move to bob/eob if wrapping enabled and no matches

Closes #67.
tarsius · Mar 23, 2022 · c0f0555 · c0f0555
1 parent e0ba3e1
commit c0f0555
Showing 1 changed file with 12 additions and 6 deletions.
diff --git a/hl-todo.el b/hl-todo.el
@@ -296,9 +296,12 @@ A negative argument means move backward that many keywords."
                         (user-error "No more matches")))))
       (cl-decf arg))
     (when (> arg 0)
-      (goto-char (point-min))
-      (let ((hl-todo-wrap-movement nil))
-        (hl-todo-next arg)))))
+      (let ((pos (save-excursion
+                   (goto-char (point-min))
+                   (let ((hl-todo-wrap-movement nil))
+                     (hl-todo-next arg))
+                   (point))))
+        (goto-char pos)))))
 
 ;;;###autoload
 (defun hl-todo-previous (arg)
@@ -320,9 +323,12 @@ A negative argument means move forward that many keywords."
       (goto-char (match-end 0))
       (cl-decf arg))
     (when (> arg 0)
-      (goto-char (point-max))
-      (let ((hl-todo-wrap-movement nil))
-        (hl-todo-previous arg)))))
+      (let ((pos (save-excursion
+                   (goto-char (point-max))
+                   (let ((hl-todo-wrap-movement nil))
+                     (hl-todo-previous arg))
+                   (point))))
+        (goto-char pos)))))
 
 ;;;###autoload
 (defun hl-todo-occur ()