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

[Miles Bader]

Index: emacs/lisp/language/tibet-util.el
diff -c emacs/lisp/language/tibet-util.el:1.30 
emacs/lisp/language/tibet-util.el:1.31
*** emacs/lisp/language/tibet-util.el:1.30      Tue May  7 21:50:08 2002
--- emacs/lisp/language/tibet-util.el   Tue Feb  4 08:11:50 2003
***************
*** 163,169 ****
      ;; If 'a follows a consonant, turn it into the subjoined form.
      ;; * Disabled by Tomabechi 2000/06/09 *
      ;; Because in Unicode, $(7"A(B may follow directly a consonant without
!     ;; any intervening vowel, as in 
4$(7"90"914""0"""Q14"A0"A1!;(B=4$(7"90"91(B 4$(7""0""1(B 
4$(7"A0"A1(B not 4$(7"90"91(B 4$(7""0""1(B $(7"Q(B 
4$(7"A0"A1(B  
      ;;(if (and (= char ?$(7"A(B)
      ;;             (aref (char-category-set (car last)) ?0))
      ;;        (setq char ?$(7"R(B)) ;; modified for new font by Tomabechi 
1999/12/10
--- 163,169 ----
      ;; If 'a follows a consonant, turn it into the subjoined form.
      ;; * Disabled by Tomabechi 2000/06/09 *
      ;; Because in Unicode, $(7"A(B may follow directly a consonant without
!     ;; any intervening vowel, as in 
4$(7"90"914""0"""Q14"A0"A1!;(B=4$(7"90"91(B 4$(7""0""1(B 
4$(7"A0"A1(B not 4$(7"90"91(B 4$(7""0""1(B $(7"Q(B 
4$(7"A0"A1(B
      ;;(if (and (= char ?$(7"A(B)
      ;;             (aref (char-category-set (car last)) ?0))
      ;;        (setq char ?$(7"R(B)) ;; modified for new font by Tomabechi 
1999/12/10
***************
*** 370,376 ****
  
  ;;;
  ;;; Unicode-related definitions.
! ;;; 
  
  (defvar tibetan-canonicalize-for-unicode-alist
    '(("$(7"Q(B" . "")        ;; remove vowel a
--- 370,376 ----
  
  ;;;
  ;;; Unicode-related definitions.
! ;;;
  
  (defvar tibetan-canonicalize-for-unicode-alist
    '(("$(7"Q(B" . "")        ;; remove vowel a