(compare-windows): lambda's take an arg and pass

it to compare-windows-skip-whitespace.

2 files changed, 9 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bec7cab8a3a..f62e924ffaf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-08-17  Richard Stallman  <rms@gnu.org>
+
+        * compare-w.el (compare-windows): lambda's take an arg and pass
+        it to compare-windows-skip-whitespace.
+
 2006-08-17  Martin Rudalics   <rudalics@gmx.at>
 
         * jit-lock.el (jit-lock-fontify-now): Protect the modified status of
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)