procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix characters.el build issue

Browse source 
* lisp/international/characters.el
(glyphless--bidi-control-characters): Don't use names here,
because it's too early (bug#52240).
This commit is contained in:
Lars Ingebrigtsen 2021-12-02 17:33:00 +01:00
parent 4c7faf3377
commit a97fce7a89
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/international/characters.el
View file

@ -1520,16 +1520,18 @@ Setup `char-width-table' appropriate for non-CJK language environment."
(aset char-acronym-table (+ #xE0021 i) (format " %c TAG" (+ 33 i))))
(aset char-acronym-table #xE007F "->|TAG") ; CANCEL TAG
;; We can't use the \N{name} things here, because this file is used
;; too early in the build process.
(defvar glyphless--bidi-control-characters
'( ?\N{left-to-right embedding}
?\N{right-to-left embedding}
?\N{left-to-right override}
?\N{right-to-left override}
?\N{left-to-right isolate}
?\N{right-to-left isolate}
?\N{first strong isolate}
?\N{pop directional formatting}
?\N{pop directional isolate}))
'(#x202a ; ?\N{left-to-right embedding}
#x202b ; ?\N{right-to-left embedding}
#x202d ; ?\N{left-to-right override}
#x202e ; ?\N{right-to-left override}
#x2066 ; ?\N{left-to-right isolate}
#x2067 ; ?\N{right-to-left isolate}
#x2068 ; ?\N{first strong isolate}
#x202c ; ?\N{pop directional formatting}
#x2069)) ; ?\N{pop directional isolate})
(defun update-glyphless-char-display (&optional variable value)
"Make the setting of `glyphless-char-display-control' take effect.