Fix horizontal scrolling during Isearch

* lisp/isearch.el (isearch-update): Compute the window's body
width in a way that is correct when there are no fringes.
(Bug#24584)
This commit is contained in:
Eli Zaretskii 2016-10-08 12:35:17 +03:00
parent 3566644a33
commit 197a6bcc20

View file

@ -1012,7 +1012,8 @@ The last thing is to trigger a new round of lazy highlighting."
;; pos-visible-in-window-group-p returns non-nil, but
;; the X coordinate it returns is 1 pixel beyond
;; the last visible one.
(>= (car visible-p) (window-body-width nil t)))
(>= (car visible-p)
(* (window-max-chars-per-line) (frame-char-width))))
(set-window-hscroll (selected-window) current-scroll))))
(if isearch-other-end
(if (< isearch-other-end (point)) ; isearch-forward?