Commit 5dd1ad8e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(compare-windows-skip-whitespace): Swap the two

and's within the or.
parent f48872fc
......@@ -141,15 +141,15 @@ If `compare-ignore-case' is non-nil, changes in case are also ignored."
(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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment