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)
This commit is contained in:
Eli Zaretskii 2021-04-22 14:01:42 +03:00
parent 7792f7b3f3
commit 3021ecdedd

View file

@ -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?