From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 22 Apr 2021 11:01:42 +0000 (+0300)
Subject: Fix Isearch hscrolling in a corner case
X-Git-Tag: emacs-28.0.90~2781
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3021ecdedd3883911ca2db2357311f7fecdbd667;p=emacs.git

Fix Isearch hscrolling in a corner case

* lisp/isearch.el (isearch-update): When we start hscrolled,
consider also the case that point ends up being to the left of the
hscrolled window's edge.  (Bug#46316)
---

diff --git a/lisp/isearch.el b/lisp/isearch.el
index f1c61fc1677..9f3cfd70fb3 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1374,7 +1374,8 @@ The last thing is to trigger a new round of lazy highlighting."
 		    ;; the X coordinate it returns is 1 pixel beyond
 		    ;; the last visible one.
 		    (>= (car visible-p)
-                        (* (window-max-chars-per-line) (frame-char-width))))
+                        (* (window-max-chars-per-line) (frame-char-width)))
+                    (< (car visible-p) 0))
 		(set-window-hscroll (selected-window) current-scroll))))
 	(if isearch-other-end
             (if (< isearch-other-end (point)) ; isearch-forward?