Mercurial > emacs
comparison lisp/compare-w.el @ 7701:ec15948b9458
(compare-windows): Make leading whitespace equivalent
to no leading whitespace, according to IGNORE-WHITESPACE argument.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 27 May 1994 07:10:56 +0000 |
parents | c762abae3964 |
children | 324e027f01bc |
comparison
equal
deleted
inserted
replaced
7700:311f42f91dbd | 7701:ec15948b9458 |
---|---|
97 (setq result2 | 97 (setq result2 |
98 (if (stringp skip-whitespace) | 98 (if (stringp skip-whitespace) |
99 (compare-windows-skip-whitespace opoint2) | 99 (compare-windows-skip-whitespace opoint2) |
100 (funcall skip-whitespace opoint2))) | 100 (funcall skip-whitespace opoint2))) |
101 (setq p2a (point)) | 101 (setq p2a (point)) |
102 (and result1 result2 (eq result1 result2) | 102 (if (or (stringp skip-whitespace) |
103 (setq p1 p1a | 103 (and result1 result2 (eq result1 result2))) |
104 p2 p2a))))) | 104 (setq p1 p1a |
105 p2 p2a))))) | |
105 | 106 |
106 ;; Try advancing comparing 1000 chars at a time. | 107 ;; Try advancing comparing 1000 chars at a time. |
107 ;; When that fails, go 500 chars at a time, and so on. | 108 ;; When that fails, go 500 chars at a time, and so on. |
108 (let ((size 1000) | 109 (let ((size 1000) |
109 success-1 | 110 success-1 |