mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

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

Browse Source 
and's within the or.
This commit is contained in:
Richard M. Stallman 1993-11-14 02:56:24 +00:00
parent f48872fc37
commit 5dd1ad8ed5
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/compare-w.el
View File

@ -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))