mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(compare-windows-skip-whitespace): Return t

Browse source 
if there is whitespace before point.
This commit is contained in:
Richard M. Stallman 1993-11-07 22:19:57 +00:00
parent 884f2b8188
commit 7f5d354194
1 changed files with 16 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/compare-w.el
View file

@ -134,19 +134,29 @@ If `compare-ignore-case' is non-nil, changes in case are also ignored."
;; and find the latest point at which a match ends.
;; Don't try starting points before START, though.
;; Value is non-nil if whitespace is found.
;; If there is whitespace before point, but none after,
;; then return t, but don't advance point.
(defun compare-windows-skip-whitespace (start)
(let ((end (point))
(beg (point))
(opoint (point)))
(while (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)))
(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)
(<= end (match-end 0))
;; This match goes past END, so advance END.
(progn (setq end (match-end 0))
(> (point) start))))
;; keep going back until whitespace
;; doesn't extend to or past end
(forward-char -1))
(setq beg (point))
(goto-char end)
(/= end opoint)))
(or (/= beg opoint)
(/= end opoint))))
(provide 'compare-w)