From: Po Lu <luangruo@yahoo.com>
Date: Wed, 10 Nov 2021 09:53:13 +0000 (+0800)
Subject: Prevent skipping results while changing search direction
X-Git-Tag: emacs-29.0.90~3671^2~9
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b1de4a2ede9ccf0144eca637a46a3b4fcfedc5f7;p=emacs.git

Prevent skipping results while changing search direction

* lisp/xwidget.el (xwidget-webkit-isearch-forward)
(xwidget-webkit-isearch-backward): Avoid moving to the next result one
too many times.
---

diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index 905327083b6..cad464b5b24 100644
--- a/lisp/xwidget.el
+++ b/lisp/xwidget.el
@@ -900,7 +900,8 @@ With argument, add COUNT copies of CHAR."
   (let ((was-reverse xwidget-webkit-isearch--is-reverse))
     (setq xwidget-webkit-isearch--is-reverse nil)
     (when was-reverse
-      (xwidget-webkit-isearch--update)))
+      (xwidget-webkit-isearch--update)
+      (setq count (1- count))))
   (let ((i 0))
     (while (< i count)
       (xwidget-webkit-next-result (xwidget-webkit-current-session))
@@ -913,7 +914,8 @@ With argument, add COUNT copies of CHAR."
   (let ((was-reverse xwidget-webkit-isearch--is-reverse))
     (setq xwidget-webkit-isearch--is-reverse t)
     (unless was-reverse
-      (xwidget-webkit-isearch--update)))
+      (xwidget-webkit-isearch--update)
+      (setq count (1- count))))
   (let ((i 0))
     (while (< i count)
       (xwidget-webkit-previous-result (xwidget-webkit-current-session))