master b1de4a2: Prevent skipping results while changing search direction

[Po Lu]

branch: master
commit b1de4a2ede9ccf0144eca637a46a3b4fcfedc5f7
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    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.
---
 lisp/xwidget.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index 9053270..cad464b 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))