From da490c954ed55117b71f673e857d48bc42e92ef2 Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 16 Dec 2001 05:33:14 +0000
Subject: [PATCH] (mapthread): Make a closure.

---
 lisp/ChangeLog            | 4 ++++
 lisp/language/ind-util.el | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bb26b76edce..2f1e33f4b28 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-12-16  Stefan Monnier  <monnier@cs.yale.edu>
+
+	* language/ind-util.el (mapthread): Make a closure.
+
 2001-12-15  Richard M. Stallman  <rms@gnu.org>
 
 	* isearch.el (isearch-start-hscroll): New variable.
diff --git a/lisp/language/ind-util.el b/lisp/language/ind-util.el
index de1ca127f52..bc72638c111 100644
--- a/lisp/language/ind-util.el
+++ b/lisp/language/ind-util.el
@@ -200,7 +200,7 @@ FUNCTION will be called 15 times."
        (lambda (x)
          (apply 
           'mapthread 
-          (lambda (&rest y) (apply function x y))
+          `(lambda (&rest y) (apply ',function x y))
           seqrest))
        seq1)
   (mapcar function seq1)))
-- 
2.39.5