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

it to compare-windows-skip-whitespace.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bec7cab8a3ad264087f30e2e68312434f6c823b5..f62e924ffaf6ef366a425c3edf5142ed326953eb 100644 (file)
--- 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 3aa01424fb59eb2e815fa77fe87d07ce73b0ae33..8dc0ac1e330eab436a03195fcffd59e8f4861d6f 100644 (file)
--- 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)