aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen2016-04-24 14:13:22 +0200
committerLars Magne Ingebrigtsen2016-04-24 14:13:22 +0200
commit2a28ba3db9bf4827a2b4a42d9eed018edf6711a3 (patch)
tree22a76a8efdf59d72f792d8ae207388fe212c6dc8
parentcf80294ae13deaf2dc27f3e28134477b05643d0c (diff)
downloademacs-2a28ba3db9bf4827a2b4a42d9eed018edf6711a3.tar.gz
emacs-2a28ba3db9bf4827a2b4a42d9eed018edf6711a3.zip
Use Unicode literals instead of hex values
* lisp/net/shr.el (shr-tag-bdo): Use Unicode literals instead of hex values for greater readability. (shr-tag-bdi): Ditto.
-rw-r--r--lisp/net/shr.el12
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