Mercurial > emacs

changeset 21384:f245110aa619

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Andreas Schwab <schwab@suse.de>
date Mon, 06 Apr 1998 09:49:37 +0000
parents aa16b532cf4c
children a14e82c3a69e
files leim/quail/lrt.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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