bug#22250: 25.0.50; Eww fails to break RTL paragraph

[Benjamin Riefenstahl <b.riefenstahl@turtle-trading.net>]

[-- Attachment #1: Type: text/plain, Size: 77 bytes --]

Benjamin Riefenstahl writes:
> Try the attached patch.

I mean this one :-(


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: wrap.patch --]
[-- Type: text/x-diff, Size: 1569 bytes --]

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index e8fdc97..3d9d39c 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -401,7 +401,7 @@ eww-display-html
 	(source (and (null document)
 		     (buffer-substring (point) (point-max)))))
     (with-current-buffer buffer
-      (setq bidi-paragraph-direction 'left-to-right)
+      ;(setq bidi-paragraph-direction 'left-to-right)
       (plist-put eww-data :source source)
       (plist-put eww-data :dom document)
       (let ((inhibit-read-only t)
@@ -562,7 +562,7 @@ eww-setup-buffer
   (let ((inhibit-read-only t))
     (remove-overlays)
     (erase-buffer))
-  (setq bidi-paragraph-direction 'left-to-right)
+  ;(setq bidi-paragraph-direction 'left-to-right)
   (unless (eq major-mode 'eww-mode)
     (eww-mode)))
 
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 330f7b5..4eee425 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -245,6 +245,7 @@ shr-insert-document
                                               (not (shr--have-one-fringe-p)))
                                          (* (frame-char-width) 2)
                                        0)))))
+        ;bidi-paragraph-direction
         bidi-display-reordering)
     (shr-descend dom)
     (shr-fill-lines start (point))
@@ -591,6 +592,10 @@ shr-fill-lines
       (goto-char (point-max)))))
 
 (defun shr-vertical-motion (column)
+  (message "bpd: %s pt: %d hscroll: %d"
+           bidi-paragraph-direction
+           (point)
+           (window-hscroll))
   (if (not shr-use-fonts)
       (move-to-column column)
     (unless (eolp)