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)
This commit is contained in:
parent
b1a8509030
commit
bb83bb11f9
1 changed files with 5 additions and 0 deletions
|
@ -246,6 +246,11 @@ DOM should be a parse tree as generated by
|
||||||
(* (frame-char-width) 2)
|
(* (frame-char-width) 2)
|
||||||
0)))))
|
0)))))
|
||||||
bidi-display-reordering)
|
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-descend dom)
|
||||||
(shr-fill-lines start (point))
|
(shr-fill-lines start (point))
|
||||||
(shr-remove-trailing-whitespace start (point))
|
(shr-remove-trailing-whitespace start (point))
|
||||||
|
|
Loading…
Add table
Reference in a new issue