diff options
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)) |