Mercurial > emacs
comparison lisp/compare-w.el @ 72432:ceec9309d859
(compare-windows): lambda's take an arg and pass
it to compare-windows-skip-whitespace.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 17 Aug 2006 15:21:57 +0000 |
| parents | 7b77bbd3e40c |
| children | ddcbd2c1b70d 6823a91487f2 |
comparison
equal
deleted
inserted
replaced
| 72431:f13889b47192 | 72432:ceec9309d859 |
|---|---|
| 189 (setq opoint2 p2) | 189 (setq opoint2 p2) |
| 190 (setq maxp1 (point-max)) | 190 (setq maxp1 (point-max)) |
| 191 | 191 |
| 192 (setq skip-func-1 (if ignore-whitespace | 192 (setq skip-func-1 (if ignore-whitespace |
| 193 (if (stringp compare-windows-whitespace) | 193 (if (stringp compare-windows-whitespace) |
| 194 (lambda () (compare-windows-skip-whitespace) | 194 (lambda (pos) |
| 195 (compare-windows-skip-whitespace pos) | |
| 195 t) | 196 t) |
| 196 compare-windows-whitespace))) | 197 compare-windows-whitespace))) |
| 197 | 198 |
| 198 (with-current-buffer b2 | 199 (with-current-buffer b2 |
| 199 (setq skip-func-2 (if ignore-whitespace | 200 (setq skip-func-2 (if ignore-whitespace |
| 200 (if (stringp compare-windows-whitespace) | 201 (if (stringp compare-windows-whitespace) |
| 201 (lambda () (compare-windows-skip-whitespace) | 202 (lambda (pos) |
| 203 (compare-windows-skip-whitespace pos) | |
| 202 t) | 204 t) |
| 203 compare-windows-whitespace))) | 205 compare-windows-whitespace))) |
| 204 (push-mark p2 t) | 206 (push-mark p2 t) |
| 205 (setq maxp2 (point-max))) | 207 (setq maxp2 (point-max))) |
| 206 (push-mark) | 208 (push-mark) |