From: morioka <morioka>
Date: Tue, 20 Jul 1999 05:16:23 +0000 (+0000)
Subject: (string-compare-from-top): Use `sref' instead of `aref'; use
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=54b2521025b9bc4f38764c73538f2a03e2a8e1eb;p=elisp%2Fmu-cite.git

(string-compare-from-top): Use `sref' instead of `aref'; use
`char-next-index'.
---

diff --git a/mu-cite.el b/mu-cite.el
index eb7ad2f..83dbb09 100644
--- a/mu-cite.el
+++ b/mu-cite.el
@@ -483,10 +483,10 @@ TABLE defaults to the current buffer's category table."
 	 c1 c2)
     (while (and (< p len)
 		(progn
-		  (setq c1 (aref str1 p)
-			c2 (aref str2 p))
+		  (setq c1 (sref str1 p)
+			c2 (sref str2 p))
 		  (eq c1 c2)))
-      (setq p (+ p (char-length c1))))
+      (setq p (char-next-index c1 p)))
     (and (> p 0)
 	 (let ((matched (substring str1 0 p))
 	       (r1 (and (< p len1)(substring str1 p)))