From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 1 Mar 2016 00:19:52 +0000 (+1100)
Subject: Support <bdo> and <bdi>
X-Git-Tag: emacs-26.0.90~2418
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3dd82d7501a28c1ac6cebb9a2fc14399413b5c40;p=emacs.git

Support <bdo> and <bdi>

* lisp/net/shr.el (shr-tag-bdo): New function.
(shr-tag-bdi): Ditto.
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index ab04b9a065a..c469e699ae8 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1681,6 +1681,24 @@ The preference is a float determined from `shr-prefer-media-type'."
       (shr-colorize-region start (point) color
 			   (cdr (assq 'background-color shr-stylesheet))))))
 
+(defun shr-tag-bdo (dom)
+  (let* ((direction (dom-attr dom 'dir))
+         (char (cond
+                ((equal direction "ltr")
+                 #x202d)                ; LRO
+                ((equal direction "rtl")
+                 #x202e))))             ; RLO
+    (when char
+      (insert char))
+    (shr-generic dom)
+    (when char
+      (insert #x202c))))                ; PDF
+
+(defun shr-tag-bdi (dom)
+  (insert #x2068)                       ; FSI
+  (shr-generic dom)
+  (insert #x2069))                      ; PDI
+
 ;;; Table rendering algorithm.
 
 ;; Table rendering is the only complicated thing here.  We do this by