diff options
| author | Andreas Schwab <schwab@suse.de> | 1998-04-06 09:49:37 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 1998-04-06 09:49:37 +0000 |
| commit | 515e3036c06a8cc4d4566030fd6ca8c12d13c7c3 (patch) | |
| tree | b9e3996c1c4ae50a7b9910cce2c3b0f8b342907c /leim/quail/lrt.el | |
| parent | 96ced23cf1d9def449a3efed7c3fdaf15fabab5f (diff) | |
(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.
Diffstat (limited to 'leim/quail/lrt.el')
| -rw-r--r-- | leim/quail/lrt.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/leim/quail/lrt.el b/leim/quail/lrt.el index e633d02eb9..b3521c9fb3 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 |