# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 731363820 0
# Node ID eea183a35396be58b2bb5bf3a7bc9d8356038dc3
# Parent  50b1987ff38a70470ea4a79389684a998bd29345
(compare-windows): Use compare-buffer-substrings.

diff -r 50b1987ff38a -r eea183a35396 lisp/compare-w.el
--- a/lisp/compare-w.el	Thu Mar 04 19:50:30 1993 +0000
+++ b/lisp/compare-w.el	Fri Mar 05 20:37:00 1993 +0000
@@ -106,24 +106,21 @@
       ;; Try advancing comparing 1000 chars at a time.
       ;; When that fails, go 500 chars at a time, and so on.
       (let ((size 1000)
-	    success-1)
+	    success-1
+	    (case-fold-search compare-ignore-case))
 	(while (> size 0)
 	  (setq success-1 t)
+	  ;; Try comparing SIZE chars at a time, repeatedly, till that fails.
 	  (while success-1
 	    (setq size (min size (- maxp1 p1) (- maxp2 p2)))
-	    (save-excursion
-	      (set-buffer b2)
-	      (setq s2 (buffer-substring p2 (+ size p2))))
 	    (setq success-1
 		  (and (> size 0)
-		       (if compare-ignore-case
-			   (let ((case-fold-search t))
-			     (save-excursion
-			       (search-forward s2 (+ p1 size) t)))
-			 (equal (buffer-substring p1 (+ size p1)) s2))))
+		       (= 0 (compare-buffer-substrings b2 p2 (+ size p2)
+						       b1 p1 (+ size p1)))))
 	    (if success-1
 		(setq p1 (+ p1 size) p2 (+ p2 size)
 		      success t)))
+	  ;; If SIZE chars don't match, try fewer.
 	  (setq size (/ size 2)))))
 
     (goto-char p1)