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 |