Mercurial > emacs

changeset 72432:ceec9309d859

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 f13889b47192
children dfcea55ebb04
files lisp/compare-w.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)