diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2014-10-04 15:09:46 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2014-10-04 15:09:46 +0300 |
| commit | 16f54832c0ddd0cc553d4231d95778ed91ed5218 (patch) | |
| tree | 2ee0c26e52ce00ac9adb31bd1e7c45e1f097dafe /lisp/descr-text.el | |
| parent | 6382f0a1d64caa4a688b6a264a4693ffe93c63ca (diff) | |
| download | emacs-16f54832c0ddd0cc553d4231d95778ed91ed5218.tar.gz | |
Fixed a crash in 'C-x =' and in RLE followed by PDF; fixed 'C-x =' display.
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | lisp/descr-text.el | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 02ed55b5bdf..7d5964cb368 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -434,13 +434,20 @@ relevant to POS." code (encode-char char charset))) (setq code char)) (cond - ;; Append a PDF character to directional embeddings and - ;; overrides, to prevent potential messup of the following - ;; text. - ((memq char '(?\x202a ?\x202b ?\x202d ?\x202e)) + ;; Append a PDF character to left-to-right directional + ;; embeddings and overrides, to prevent potential messup of the + ;; following text. + ((memq char '(?\x202a ?\x202d)) (setq char-description (concat char-description (propertize (string ?\x202c) 'invisible t)))) + ;; Append a PDF character followed by LRM to right-to-left + ;; directional embeddings and overrides, to prevent potential + ;; messup of the following numerical text. + ((memq char '(?\x202b ?\x202e)) + (setq char-description + (concat char-description + (propertize (string ?\x202c ?\x200e) '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)) |