diff options
| -rw-r--r-- | lisp/net/shr.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 3adc57397cf..bf05fe93bae 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el | |||
| @@ -1690,19 +1690,19 @@ The preference is a float determined from `shr-prefer-media-type'." | |||
| 1690 | (let* ((direction (dom-attr dom 'dir)) | 1690 | (let* ((direction (dom-attr dom 'dir)) |
| 1691 | (char (cond | 1691 | (char (cond |
| 1692 | ((equal direction "ltr") | 1692 | ((equal direction "ltr") |
| 1693 | #x202d) ; LRO | 1693 | ?\N{LEFT-TO-RIGHT OVERRIDE}) |
| 1694 | ((equal direction "rtl") | 1694 | ((equal direction "rtl") |
| 1695 | #x202e)))) ; RLO | 1695 | ?\N{RIGHT-TO-LEFT OVERRIDE})))) |
| 1696 | (when char | 1696 | (when char |
| 1697 | (insert #x2068 char)) ; FSI + LRO/RLO | 1697 | (insert ?\N{FIRST STRONG ISOLATE} char)) |
| 1698 | (shr-generic dom) | 1698 | (shr-generic dom) |
| 1699 | (when char | 1699 | (when char |
| 1700 | (insert #x202c #x2069)))) ; PDF + PDI | 1700 | (insert ?\N{POP DIRECTIONAL FORMATTING} ?\N{POP DIRECTIONAL ISOLATE})))) |
| 1701 | 1701 | ||
| 1702 | (defun shr-tag-bdi (dom) | 1702 | (defun shr-tag-bdi (dom) |
| 1703 | (insert #x2068) ; FSI | 1703 | (insert ?\N{FIRST STRONG ISOLATE}) |
| 1704 | (shr-generic dom) | 1704 | (shr-generic dom) |
| 1705 | (insert #x2069)) ; PDI | 1705 | (insert ?\N{POP DIRECTIONAL ISOLATE})) |
| 1706 | 1706 | ||
| 1707 | ;;; Table rendering algorithm. | 1707 | ;;; Table rendering algorithm. |
| 1708 | 1708 | ||