From: Richard M. Stallman Date: Thu, 17 Aug 2006 15:22:21 +0000 (+0000) Subject: (compare-windows): lambda's take an arg and pass X-Git-Tag: emacs-pretest-22.0.90~966 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb5422b2d186d61a86cc5aa3ca8c502cf6988409;p=emacs.git (compare-windows): lambda's take an arg and pass it to compare-windows-skip-whitespace. --- 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 + + * compare-w.el (compare-windows): lambda's take an arg and pass + it to compare-windows-skip-whitespace. + 2006-08-17 Martin Rudalics * 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)