diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-11-14 02:56:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-11-14 02:56:24 +0000 |
| commit | 5dd1ad8ed5c0209da4d1d3ac07b798f3ff34c27d (patch) | |
| tree | d3c1464ccc3905110217d4ce0af8d43416ca7c08 /lisp/compare-w.el | |
| parent | f48872fc37fcd26354e40487ba5a6927839b8928 (diff) | |
(compare-windows-skip-whitespace): Swap the two
and's within the or.
Diffstat (limited to 'lisp/compare-w.el')
| -rw-r--r-- | lisp/compare-w.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/compare-w.el b/lisp/compare-w.el index a6bd00e1a07..717974b364b 100644 --- a/lisp/compare-w.el +++ b/lisp/compare-w.el @@ -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)) |