# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1155828117 0
# Node ID ceec9309d8594fcc34ac67613c283cd94d62ff1e
# Parent  f13889b471922412c9ff070179f842e6cc674228
(compare-windows): lambda's take an arg and pass
it to compare-windows-skip-whitespace.

diff -r f13889b47192 -r ceec9309d859 lisp/compare-w.el
--- a/lisp/compare-w.el	Thu Aug 17 15:10:21 2006 +0000
+++ b/lisp/compare-w.el	Thu Aug 17 15:21:57 2006 +0000
@@ -191,14 +191,16 @@
 
     (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)