diff options
| author | Lars Magne Ingebrigtsen | 2016-04-24 14:13:22 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 2016-04-24 14:13:22 +0200 |
| commit | 2a28ba3db9bf4827a2b4a42d9eed018edf6711a3 (patch) | |
| tree | 22a76a8efdf59d72f792d8ae207388fe212c6dc8 | |
| parent | cf80294ae13deaf2dc27f3e28134477b05643d0c (diff) | |
| download | emacs-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.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 | ||