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

[elisp/mu-cite.git] / mu-cite.el

diff --git a/mu-cite.el b/mu-cite.el
index eb7ad2f..83dbb09 100644 (file)
--- 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)))