[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/language/tibet-util.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/language/tibet-util.el |
Date: |
Fri, 04 Apr 2003 01:22:27 -0500 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/language/tibet-util.el,
Miles Bader <=