diff options
| author | Kenichi Handa <handa@m17n.org> | 2000-06-21 02:05:10 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2000-06-21 02:05:10 +0000 |
| commit | ff69c4ee0cc31d39936c094cf1e22b50d42eace4 (patch) | |
| tree | f65e366649f9efd1dd27ca02d1f0bfca97215fe9 /lisp/language/tibet-util.el | |
| parent | d9330f43f401ce74c34de4d9351607b911f6696d (diff) | |
| download | emacs-ff69c4ee0cc31d39936c094cf1e22b50d42eace4.tar.gz emacs-ff69c4ee0cc31d39936c094cf1e22b50d42eace4.tar.bz2 emacs-ff69c4ee0cc31d39936c094cf1e22b50d42eace4.zip | |
*** empty log message ***
Diffstat (limited to 'lisp/language/tibet-util.el')
| -rw-r--r-- | lisp/language/tibet-util.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el index efa07fa1fa6..e09828b7cf6 100644 --- a/lisp/language/tibet-util.el +++ b/lisp/language/tibet-util.el @@ -50,7 +50,7 @@ Returns non-nil if CH is Tibetan. Otherwise, returns nil." (i 0) ch this-trans) (while (< i len) - (let ((idx (string-match tibetan-precomposition-rule-alist str i))) + (let ((idx (string-match tibetan-precomposition-rule-regexp str i))) (if (eq idx i) ;; Ith character and the followings matches precomposable ;; Tibetan sequence. @@ -116,13 +116,13 @@ The returned string has no composition information." ;;; (Sanskrit visarga, though it is a vowel modifier, is considered ;;; to be a punctuation.) ;;; -;;; Here are examples of the words "bsgrubs" and "h'uM" +;;; Here are examples of the words "bsgrubs" and "hfauM" ;;; -;;; 4$(7"70"714%qx!"U0"G###C"U14"70"714"G0"G1(B 4$(7"Hx!"Rx!"Ur'"_0"H"A"U"_1(B +;;; 4$(7"70"714%qx!"U0"G###C"U14"70"714"G0"G1(B 4$(7"Hx!"Rx!"Ur'"_0"H"R"U"_1(B ;;; ;;; M ;;; b s b s h -;;; g ' +;;; g fa ;;; r u ;;; u ;;; @@ -153,8 +153,9 @@ The returned string has no composition information." ;; Added by Tomabechi 2000/06/08 (if (memq char '(?$(7"T(B ?$(7"V(B ?$(7"W(B ?$(7"X(B ?$(7"Y(B ?$(7"Z(B ?$(7"b(B)) (setq comp-vowel - (cddr (assoc (char-to-string char) - tibetan-composite-vowel-alist)) + (copy-sequence + (cddr (assoc (char-to-string char) + tibetan-composite-vowel-alist))) char (cadr (assoc (char-to-string char) tibetan-composite-vowel-alist)))) |