# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 961553110 0
# Node ID cb30c41d1bb459d1bd65ecd8cf93c09862be98a8
# Parent  dd9436a06050efa7e6d75d7177693abf6939052b
*** empty log message ***

diff -r dd9436a06050 -r cb30c41d1bb4 lisp/language/tibet-util.el
--- a/lisp/language/tibet-util.el	Tue Jun 20 23:59:05 2000 +0000
+++ b/lisp/language/tibet-util.el	Wed Jun 21 02:05:10 2000 +0000
@@ -50,7 +50,7 @@
 	(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 @@
 ;;; (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 @@
     ;; 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))))