# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 891856177 0
# Node ID f245110aa6190fc89bde1b37ca1bbaa4a2ee5590
# Parent  aa16b532cf4c2fde821f99c0d256f1c77782a02a
(lrt-composing-pattern-double-c): Change
chars-in-string to length.
(lrt-generate-quail-map): Change sref to aref, and make second
argument of substring a character index.

diff -r aa16b532cf4c -r f245110aa619 leim/quail/lrt.el
--- a/leim/quail/lrt.el	Mon Apr 06 09:33:40 1998 +0000
+++ b/leim/quail/lrt.el	Mon Apr 06 09:49:37 1998 +0000
@@ -66,7 +66,7 @@
     ("h" . ?(1N(B)
     ("nh" . ?(1|(B)
     ("mh" . ?(1}(B)
-    ("lh" . "0(1K\1(B")
+    ("lh" . "0(1K\(B1")
     ))
 
 ;; Semi-vowel-sign-lo is put under the first letter.
@@ -161,7 +161,7 @@
   (let* ((patterns (copy-sequence vowel-pattern))
 	 (tail patterns)
 	 (chars (string-to-list
-		 (if (= (chars-in-string str) 1)
+		 (if (= (length str) 1)
 		     (decompose-string str)
 		   str)))
 	 place)
@@ -343,8 +343,8 @@
 	  (quail-defrule-internal
 	   (concat (car e1) semi-vowel-key)
 	   (vector (concat (compose-string
-			    (format "%c%c" (sref (cdr e1) 0) semi-vowel-char))
-			   (substring (cdr e1) (charset-bytes 'lao))))
+			    (format "%c%c" (aref (cdr e1) 0) semi-vowel-char))
+			   (substring (cdr e1) 1)))
 	   map)
 	  (setq l2 lrt-vowel-table)
 	  (while l2