Fix display of LRI, RLI, and FSI by 'C-x ='.

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 7d5964cb368946be4e33a040956bc844f58fe93a..1dc43e96b7952ffd3e44428758f845ecf6fcd8f7 100644 (file)
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -448,6 +448,12 @@ relevant to POS."
        (setq char-description
              (concat char-description
                      (propertize (string ?\x202c ?\x200e) 'invisible t))))
+       ;; Append a PDI character to directional isolate initiators, to
+       ;; prevent potential messup of the following numerical text
+       ((memq char '(?\x2066 ?\x2067 ?\x2068))
+       (setq char-description
+             (concat char-description
+                     (propertize (string ?\x2069) 'invisible t))))
        ;; Append a LRM character to any strong character to avoid
        ;; messing up the numerical codepoint.
        ((memq (get-char-code-property char 'bidi-class) '(R AL))

diff --git a/lisp/simple.el b/lisp/simple.el
index 69c64b6de7b11e86760e3e7488a636d42c1802a0..63d458cb80ead658c9b8f2677e24dd41f46d5ac8 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1229,6 +1229,8 @@ in *Help* buffer.  See also the command `describe-char'."
                 (propertize (string ?\x202c) 'invisible t))
                ((memq char '(?\x202b ?\x202e))
                 (propertize (string ?\x202c ?\x200e) 'invisible t))
+               ((memq char '(?\x2066 ?\x2067 ?\x2068))
+                (propertize (string ?\x2069) 'invisible t))
                ;; Strong right-to-left characters cause reordering of
                ;; the following numerical characters which show the
                ;; codepoint, so append LRM to countermand that.