Mercurial > emacs
comparison lisp/language/tibetan.el @ 45031:cdb2b9108c16
(tibetan-obsolete-glyphs): Now in tibet-util.el.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 30 Apr 2002 17:23:53 +0000 |
| parents | e3ae5ef41293 |
| children | 0d8b17d428b5 |
comparison
equal
deleted
inserted
replaced
| 45030:5a8ec18cf242 | 45031:cdb2b9108c16 |
|---|---|
| 553 ("$(7"G#4(B" . "$(7%V(B") | 553 ("$(7"G#4(B" . "$(7%V(B") |
| 554 ("$(7"G#5(B" . "$(7%W(B") | 554 ("$(7"G#5(B" . "$(7%W(B") |
| 555 ("$(7"G#7(B" . "$(7%X(B") | 555 ("$(7"G#7(B" . "$(7%X(B") |
| 556 ("$(7"G#9(B" . "$(7%Y(B"))) | 556 ("$(7"G#9(B" . "$(7%Y(B"))) |
| 557 | 557 |
| 558 (defconst tibetan-obsolete-glyphs | |
| 559 `(("$(7!=(B" . "$(8!=(B") ; 2 col <-> 1 col | |
| 560 ("$(7!?(B" . "$(8!?(B") | |
| 561 ("$(7!@(B" . "$(8!@(B") | |
| 562 ("$(7!A(B" . "$(8!A(B") | |
| 563 ("$(7"`(B" . "$(8"`(B") | |
| 564 ("$(7!;(B" . "$(8!;(B") | |
| 565 ("$(7!D(B" . "$(8!D(B") | |
| 566 ;; Yes these are dirty. But ... | |
| 567 ("$(7!>(B $(7!>(B" . ,(compose-string "$(7!>(B $(7!>(B" 0 3 [?$(7!>(B (Br . Bl) ? (Br . Bl) ?$(7!>(B])) | |
| 568 ("$(7!4!5!5(B" . ,(compose-string | |
| 569 "$(7#R#S#S#S(B" 0 4 | |
| 570 [?$(7#R(B (Br . Bl) ?$(7#S(B (Br . Bl) ?$(7#S(B (Br . Bl) ?$(7#S(B])) | |
| 571 ("$(7!4!5(B" . ,(compose-string "$(7#R#S#S(B" 0 3 [?$(7#R(B (Br . Bl) ?$(7#S(B (Br . Bl) ?$(7#S(B])) | |
| 572 ("$(7!6(B" . ,(compose-string "$(7#R#S!I(B" 0 3 [?$(7#R(B (Br . Bl) ?$(7#S(B (br . tr) ?$(7!I(B])) | |
| 573 ("$(7!4(B" . ,(compose-string "$(7#R#S(B" 0 2 [?$(7#R(B (Br . Bl) ?$(7#S(B])))) | |
| 574 | |
| 575 (defconst tibetan-regexp | 558 (defconst tibetan-regexp |
| 576 (let ((l (list tibetan-precomposed-transcription-alist | 559 (let ((l (list tibetan-precomposed-transcription-alist |
| 577 tibetan-consonant-transcription-alist | 560 tibetan-consonant-transcription-alist |
| 578 tibetan-vowel-transcription-alist | 561 tibetan-vowel-transcription-alist |
| 579 tibetan-modifier-transcription-alist | 562 tibetan-modifier-transcription-alist |