# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 770022656 0
# Node ID ec15948b945816703bf60430daf17bc0e919e619
# Parent  311f42f91dbda92d72008fbf4556677d378243a0
(compare-windows): Make leading whitespace equivalent
to no leading whitespace, according to IGNORE-WHITESPACE argument.

diff -r 311f42f91dbd -r ec15948b9458 lisp/compare-w.el
--- a/lisp/compare-w.el	Fri May 27 06:38:40 1994 +0000
+++ b/lisp/compare-w.el	Fri May 27 07:10:56 1994 +0000
@@ -99,9 +99,10 @@
 			 (compare-windows-skip-whitespace opoint2)
 		       (funcall skip-whitespace opoint2)))
 	       (setq p2a (point))
-	       (and result1 result2 (eq result1 result2)
-		    (setq p1 p1a
-			  p2 p2a)))))
+	       (if (or (stringp skip-whitespace)
+		       (and result1 result2 (eq result1 result2)))
+		   (setq p1 p1a
+			 p2 p2a)))))
 
       ;; Try advancing comparing 1000 chars at a time.
       ;; When that fails, go 500 chars at a time, and so on.