[Emacs-diffs] emacs-25 bb83bb1: Fix EWW rendering of long RTL lines

[Eli Zaretskii]

branch: emacs-25
commit bb83bb11f9c38199e413045300acf6ef04f67b4a
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    Fix EWW rendering of long RTL lines
    
    * lisp/net/shr.el (shr-insert-document): Undo any previous hscroll
    of the selected window before filling its lines.  (Bug#22250)
---
 lisp/net/shr.el |    5 +++++
 1 files changed, 5 insertions(+), 0 deletions(-)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 330f7b5..09e368f 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -246,6 +246,11 @@ DOM should be a parse tree as generated by
                                          (* (frame-char-width) 2)
                                        0)))))
         bidi-display-reordering)
+    ;; If the window was hscrolled for some reason, shr-fill-lines
+    ;; below will misbehave, because it silently assumes that it
+    ;; starts with a non-hscrolled window (vertical-motion will move
+    ;; to a wrong place otherwise).
+    (set-window-hscroll nil 0)
     (shr-descend dom)
     (shr-fill-lines start (point))
     (shr-remove-trailing-whitespace start (point))