diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-04-30 17:24:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-04-30 17:24:10 +0000 |
| commit | 93f7e65790e88012060740ec2459823d2d58ef5c (patch) | |
| tree | 0dd311adec78bb2579531331d1531f55dfed4fc1 /lisp/language | |
| parent | 5bad6b8ad58d2b0634be0630a3e00fb662acd34e (diff) | |
| download | emacs-93f7e65790e88012060740ec2459823d2d58ef5c.tar.gz | |
(tibetan-obsolete-glyphs): From tibetan.el.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/tibet-util.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el index ced6dee6531..5d53989a63f 100644 --- a/lisp/language/tibet-util.el +++ b/lisp/language/tibet-util.el @@ -35,6 +35,23 @@ ;;; Code: +(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])))) + ;;;###autoload (defun tibetan-char-p (ch) "Check if char CH is Tibetan character. |