From: Andreas Schwab <schwab@suse.de>
Date: Mon, 6 Apr 1998 09:49:37 +0000 (+0000)
Subject: (lrt-composing-pattern-double-c): Change
X-Git-Tag: emacs-20.3~1690
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=515e3036c06a8cc4d4566030fd6ca8c12d13c7c3;p=emacs.git

(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 --git a/leim/quail/lrt.el b/leim/quail/lrt.el
index e633d02eb93..b3521c9fb39 100644
--- a/leim/quail/lrt.el
+++ b/leim/quail/lrt.el
@@ -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