From fb5422b2d186d61a86cc5aa3ca8c502cf6988409 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 17 Aug 2006 15:22:21 +0000 Subject: [PATCH] (compare-windows): lambda's take an arg and pass it to compare-windows-skip-whitespace. --- lisp/ChangeLog | 5 +++++ lisp/compare-w.el | 6 ++++-- 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 + + * 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) -- 2.39.5