mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Kenichi Handa 2000-06-21 02:05:10 +00:00
parent d9330f43f4
commit ff69c4ee0c
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/language/tibet-util.el
View File

@ -50,7 +50,7 @@ Returns non-nil if CH is Tibetan. Otherwise, returns nil."
(i 0) (i 0)
ch this-trans) ch this-trans)
(while (< i len) (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) (if (eq idx i)
;; Ith character and the followings matches precomposable ;; Ith character and the followings matches precomposable
;; Tibetan sequence. ;; Tibetan sequence.
@ -116,13 +116,13 @@ The returned string has no composition information."
;;; (Sanskrit visarga, though it is a vowel modifier, is considered ;;; (Sanskrit visarga, though it is a vowel modifier, is considered
;;; to be a punctuation.) ;;; 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 ;;; M
;;; b s b s h ;;; b s b s h
;;; g ' ;;; g fa
;;; r u ;;; r u
;;; u ;;; u
;;; ;;;
@ -153,8 +153,9 @@ The returned string has no composition information."
;; Added by Tomabechi 2000/06/08 ;; 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)) (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 (setq comp-vowel
(cddr (assoc (char-to-string char) (copy-sequence
tibetan-composite-vowel-alist)) (cddr (assoc (char-to-string char)
tibetan-composite-vowel-alist)))
char char
(cadr (assoc (char-to-string char) (cadr (assoc (char-to-string char)
tibetan-composite-vowel-alist)))) tibetan-composite-vowel-alist))))