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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d68937780a667ba460d4dc98231b0caa2a843cd0..20c9e1844b862867bcb4cdd42009e185cff7903f 100644 (file)
--- 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 ced6dee65318f010a3cfb572874f6a35cb659062..5d53989a63f5bc928631decb12933d0552cdf825 100644 (file)
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -35,6 +35,23 @@
 
 ;;; Code:
 
+(defconst tibetan-obsolete-glyphs
+  `(("\e$(7!=\e(B" . "\e$(8!=\e(B")                        ; 2 col <-> 1 col
+    ("\e$(7!?\e(B" . "\e$(8!?\e(B")
+    ("\e$(7!@\e(B" . "\e$(8!@\e(B")
+    ("\e$(7!A\e(B" . "\e$(8!A\e(B")
+    ("\e$(7"`\e(B" . "\e$(8"`\e(B")
+    ("\e$(7!;\e(B" . "\e$(8!;\e(B")
+    ("\e$(7!D\e(B" . "\e$(8!D\e(B")
+    ;; Yes these are dirty. But ...
+    ("\e$(7!>\e(B \e$(7!>\e(B" . ,(compose-string "\e$(7!>\e(B \e$(7!>\e(B" 0 3 [?\e$(7!>\e(B (Br . Bl) ?  (Br . Bl) ?\e$(7!>\e(B]))
+    ("\e$(7!4!5!5\e(B" . ,(compose-string
+                 "\e$(7#R#S#S#S\e(B" 0 4
+                 [?\e$(7#R\e(B (Br . Bl) ?\e$(7#S\e(B (Br . Bl) ?\e$(7#S\e(B (Br . Bl) ?\e$(7#S\e(B]))
+    ("\e$(7!4!5\e(B" . ,(compose-string "\e$(7#R#S#S\e(B" 0 3 [?\e$(7#R\e(B (Br . Bl) ?\e$(7#S\e(B (Br . Bl) ?\e$(7#S\e(B]))
+    ("\e$(7!6\e(B" . ,(compose-string "\e$(7#R#S!I\e(B" 0 3 [?\e$(7#R\e(B (Br . Bl) ?\e$(7#S\e(B (br . tr) ?\e$(7!I\e(B]))
+    ("\e$(7!4\e(B"   . ,(compose-string "\e$(7#R#S\e(B" 0 2 [?\e$(7#R\e(B (Br . Bl) ?\e$(7#S\e(B]))))
+
 ;;;###autoload
 (defun tibetan-char-p (ch)
   "Check if char CH is Tibetan character.