diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-08-17 15:22:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-08-17 15:22:21 +0000 |
| commit | fb5422b2d186d61a86cc5aa3ca8c502cf6988409 (patch) | |
| tree | 9da48512d79ba0311a407d07cd13e7a84c128730 /lisp/compare-w.el | |
| parent | 9fd762b0633b14c6d065b2b448f57a2d62663ad6 (diff) | |
| download | emacs-fb5422b2d186d61a86cc5aa3ca8c502cf6988409.tar.gz | |
(compare-windows): lambda's take an arg and pass
it to compare-windows-skip-whitespace.
Diffstat (limited to 'lisp/compare-w.el')
| -rw-r--r-- | lisp/compare-w.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/compare-w.el b/lisp/compare-w.el index 3aa01424fb5..8dc0ac1e330 100644 --- a/lisp/compare-w.el +++ b/lisp/compare-w.el @@ -191,14 +191,16 @@ on third call it again advances points to the next difference and so on." (setq skip-func-1 (if ignore-whitespace (if (stringp compare-windows-whitespace) - (lambda () (compare-windows-skip-whitespace) + (lambda (pos) + (compare-windows-skip-whitespace pos) t) compare-windows-whitespace))) (with-current-buffer b2 (setq skip-func-2 (if ignore-whitespace (if (stringp compare-windows-whitespace) - (lambda () (compare-windows-skip-whitespace) + (lambda (pos) + (compare-windows-skip-whitespace pos) t) compare-windows-whitespace))) (push-mark p2 t) |