From 54b2521025b9bc4f38764c73538f2a03e2a8e1eb Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 20 Jul 1999 05:16:23 +0000 Subject: [PATCH] (string-compare-from-top): Use `sref' instead of `aref'; use `char-next-index'. --- mu-cite.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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))) -- 1.7.10.4