(tibetan-obsolete-glyphs): From tibetan.el.

2 files changed, 21 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d68937780a6..20c9e1844b8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2002-04-30  Richard M. Stallman  <rms@gnu.org>
 
+        * language/tibetan.el (tibetan-obsolete-glyphs): Now in tibet-util.el.
+
+        * language/tibet-util.el (tibetan-obsolete-glyphs): From tibetan.el.
+
         * align.el (align-region): Fix call to `message'.
         Check that (car rule) is a symbol.
 
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.