Mercurial > emacs

changeset 5005:c762abae3964

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compare-windows-skip-whitespace): Swap the two and's within the or.
author Richard M. Stallman <rms@gnu.org>
date Sun, 14 Nov 1993 02:56:24 +0000
parents 1c1661097590
children 356f6a751fdf
files lisp/compare-w.el
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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))