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