Mercurial > emacs
comparison lisp/language/tibet-util.el @ 45032:29a7076e3736
(tibetan-obsolete-glyphs): From tibetan.el.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 30 Apr 2002 17:24:04 +0000 |
| parents | df6b9860f119 |
| children | 15af34d3b6f7 |
comparison
equal
deleted
inserted
replaced
| 45031:cdb2b9108c16 | 45032:29a7076e3736 |
|---|---|
| 32 ;; 1999.10.25 Modification for a new composition way by K.Handa. | 32 ;; 1999.10.25 Modification for a new composition way by K.Handa. |
| 33 | 33 |
| 34 ;;; Commentary: | 34 ;;; Commentary: |
| 35 | 35 |
| 36 ;;; Code: | 36 ;;; Code: |
| 37 | |
| 38 (defconst tibetan-obsolete-glyphs | |
| 39 `(("$(7!=(B" . "$(8!=(B") ; 2 col <-> 1 col | |
| 40 ("$(7!?(B" . "$(8!?(B") | |
| 41 ("$(7!@(B" . "$(8!@(B") | |
| 42 ("$(7!A(B" . "$(8!A(B") | |
| 43 ("$(7"`(B" . "$(8"`(B") | |
| 44 ("$(7!;(B" . "$(8!;(B") | |
| 45 ("$(7!D(B" . "$(8!D(B") | |
| 46 ;; Yes these are dirty. But ... | |
| 47 ("$(7!>(B $(7!>(B" . ,(compose-string "$(7!>(B $(7!>(B" 0 3 [?$(7!>(B (Br . Bl) ? (Br . Bl) ?$(7!>(B])) | |
| 48 ("$(7!4!5!5(B" . ,(compose-string | |
| 49 "$(7#R#S#S#S(B" 0 4 | |
| 50 [?$(7#R(B (Br . Bl) ?$(7#S(B (Br . Bl) ?$(7#S(B (Br . Bl) ?$(7#S(B])) | |
| 51 ("$(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])) | |
| 52 ("$(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])) | |
| 53 ("$(7!4(B" . ,(compose-string "$(7#R#S(B" 0 2 [?$(7#R(B (Br . Bl) ?$(7#S(B])))) | |
| 37 | 54 |
| 38 ;;;###autoload | 55 ;;;###autoload |
| 39 (defun tibetan-char-p (ch) | 56 (defun tibetan-char-p (ch) |
| 40 "Check if char CH is Tibetan character. | 57 "Check if char CH is Tibetan character. |
| 41 Returns non-nil if CH is Tibetan. Otherwise, returns nil." | 58 Returns non-nil if CH is Tibetan. Otherwise, returns nil." |