From: yamaoka <yamaoka>
Date: Thu, 22 Jul 1999 10:47:08 +0000 (+0000)
Subject: (string-compare-from-top): Don't use `aref'.
X-Git-Tag: mu-cite-8_0~22
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bc775a067ee492f2dd52d594805ebef30681485d;p=elisp%2Fmu-cite.git

(string-compare-from-top): Don't use `aref'.
---

diff --git a/mu-cite.el b/mu-cite.el
index de6083a..c2fa92b 100644
--- a/mu-cite.el
+++ b/mu-cite.el
@@ -535,8 +535,8 @@ 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 (char-next-index c1 p)))
     (and (> p 0)