From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 13 Oct 2014 12:27:19 +0000 (+0300)
Subject: Fix display of LRI, RLI, and FSI by 'C-x ='.
X-Git-Tag: emacs-25.0.90~2635^2~679^2~50^2~10
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d6eeb62788c1f5ac51d6bc9eff31ec9aea49c98c;p=emacs.git

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

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 7d5964cb368..1dc43e96b79 100644
--- 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 69c64b6de7b..63d458cb80e 100644
--- 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.