Mercurial > emacs
diff 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 |
line wrap: on
line diff
--- a/lisp/language/tibetan.el Tue Apr 30 17:14:14 2002 +0000 +++ b/lisp/language/tibetan.el Tue Apr 30 17:23:53 2002 +0000 @@ -555,23 +555,6 @@ ("$(7"G#7(B" . "$(7%X(B") ("$(7"G#9(B" . "$(7%Y(B"))) -(defconst tibetan-obsolete-glyphs - `(("$(7!=(B" . "$(8!=(B") ; 2 col <-> 1 col - ("$(7!?(B" . "$(8!?(B") - ("$(7!@(B" . "$(8!@(B") - ("$(7!A(B" . "$(8!A(B") - ("$(7"`(B" . "$(8"`(B") - ("$(7!;(B" . "$(8!;(B") - ("$(7!D(B" . "$(8!D(B") - ;; Yes these are dirty. But ... - ("$(7!>(B $(7!>(B" . ,(compose-string "$(7!>(B $(7!>(B" 0 3 [?$(7!>(B (Br . Bl) ? (Br . Bl) ?$(7!>(B])) - ("$(7!4!5!5(B" . ,(compose-string - "$(7#R#S#S#S(B" 0 4 - [?$(7#R(B (Br . Bl) ?$(7#S(B (Br . Bl) ?$(7#S(B (Br . Bl) ?$(7#S(B])) - ("$(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])) - ("$(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])) - ("$(7!4(B" . ,(compose-string "$(7#R#S(B" 0 2 [?$(7#R(B (Br . Bl) ?$(7#S(B])))) - (defconst tibetan-regexp (let ((l (list tibetan-precomposed-transcription-alist tibetan-consonant-transcription-alist