[Emacs-diffs] Changes to emacs/lisp/language/tibet-util.el

[Richard M. Stallman]

Index: emacs/lisp/language/tibet-util.el
diff -c emacs/lisp/language/tibet-util.el:1.28 
emacs/lisp/language/tibet-util.el:1.29
*** emacs/lisp/language/tibet-util.el:1.28      Sat Jan 19 14:12:45 2002
--- emacs/lisp/language/tibet-util.el   Tue Apr 30 13:24:04 2002
***************
*** 35,40 ****
--- 35,57 ----
  
  ;;; Code:
  
+ (defconst tibetan-obsolete-glyphs
+   `(("$(7!=(B" . "$(8!=(B")                       ; 2 col <-> 1 col
+     ("$(7!?(B" . "$(8!?(B")
+     ("$(address@hidden(B" . "$(address@hidden(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.