# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 753245784 0
# Node ID c762abae3964dce14b7accd24d0e6efc83531226
# Parent  1c16610975909db79929fac12f4582842dcb94ae
(compare-windows-skip-whitespace): Swap the two
and's within the or.

diff -r 1c1661097590 -r c762abae3964 lisp/compare-w.el
--- a/lisp/compare-w.el	Sun Nov 14 00:06:48 1993 +0000
+++ b/lisp/compare-w.el	Sun Nov 14 02:56:24 1993 +0000
@@ -141,15 +141,15 @@
   (let ((end (point))
 	(beg (point))
 	(opoint (point)))
-    (while (or (and (/= (point) start)
-		    ;; Consider at least the char before point,
-		    ;; unless it is also before START.
-		    (= (point) opoint))
-	       (and (looking-at compare-windows-whitespace)
+    (while (or (and (looking-at compare-windows-whitespace)
 		    (<= end (match-end 0))
 		    ;; This match goes past END, so advance END.
 		    (progn (setq end (match-end 0))
-			   (> (point) start))))
+			   (> (point) start)))
+	       (and (/= (point) start)
+		    ;; Consider at least the char before point,
+		    ;; unless it is also before START.
+		    (= (point) opoint)))
       ;; keep going back until whitespace
       ;; doesn't extend to or past end
       (forward-char -1))