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

; fix last change

Browse source 
* lisp/language/tibetan.el (tibetan-regexp, tibetan-precomposed-regexp)
(tibetan-precomposition-rule-regexp):
Don't use regexp-opt after all since it breaks bootstrapping.
This commit is contained in:
Mattias Engdegård 2023-07-05 19:42:05 +02:00
parent d7168e8575
commit 47cbecb474
1 changed files with 13 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/language/tibetan.el
View file

@ -558,29 +558,31 @@
("སྨ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")))
(defconst tibetan-regexp
(regexp-opt
(mapcar (lambda (x) (regexp-quote (car x)))
(append tibetan-precomposed-transcription-alist
tibetan-consonant-transcription-alist
tibetan-vowel-transcription-alist
tibetan-modifier-transcription-alist
tibetan-subjoined-transcription-alist)))
(mapconcat (lambda (x) (regexp-quote (car x)))
(append tibetan-precomposed-transcription-alist
tibetan-consonant-transcription-alist
tibetan-vowel-transcription-alist
tibetan-modifier-transcription-alist
tibetan-subjoined-transcription-alist)
"\\|")
"Regexp matching a Tibetan transcription of a composable Tibetan sequence.
The result of matching is to be used for indexing alists at conversion
from a roman transcription to the corresponding Tibetan character.")
(defvar tibetan-precomposed-regexp
(purecopy
(concat "^" (regexp-opt
(mapcar #'car tibetan-precomposed-transcription-alist)
t)))
(concat "^\\("
(mapconcat #'car tibetan-precomposed-transcription-alist "\\|")
"\\)"))
"Regexp string to match a romanized Tibetan complex consonant.
The result of matching is to be used for indexing alists when the input key
from an input method is converted to the corresponding precomposed glyph.")
(defvar tibetan-precomposition-rule-regexp
(purecopy
(regexp-opt (mapcar #'car tibetan-precomposition-rule-alist) t))
(concat "\\("
(mapconcat #'car tibetan-precomposition-rule-alist "\\|")
"\\)"))
"Regexp string to match a sequence of Tibetan consonantic components.
That is, one base consonant and one or more subjoined consonants.
The result of matching is to be used for indexing alist when the component