From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 7 Apr 2008 14:25:02 +0000 (+0000)
Subject: (cvs-map): Avoid recursion :-(
X-Git-Tag: emacs-pretest-23.0.90~6466
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=14cfebb986bc40cec3788be7421bb7844c167055;p=emacs.git

(cvs-map): Avoid recursion :-(
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79a74b68488..9f51e4a0ab8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-04-07  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* pcvs-util.el (cvs-map): Avoid recursion :-(
+
 2008-04-07  Glenn Morris  <rgm@gnu.org>
 
 	* calendar/calendar.el (calendar-mode-map): Replace use of kbd.
diff --git a/lisp/pcvs-util.el b/lisp/pcvs-util.el
index bd4efef8d55..1cbe72796c2 100644
--- a/lisp/pcvs-util.el
+++ b/lisp/pcvs-util.el
@@ -51,9 +51,11 @@
       (unless (member x ys) (push x zs)))))
 
 (defun cvs-map (-cvs-map-f &rest -cvs-map-ls)
-  (unless (cvs-every 'null -cvs-map-ls)
-    (cons (apply -cvs-map-f (mapcar 'car -cvs-map-ls))
-	  (apply 'cvs-map -cvs-map-f (mapcar 'cdr -cvs-map-ls)))))
+  (let ((accum ()))
+    (while (not (cvs-every 'null -cvs-map-ls))
+      (push (apply -cvs-map-f (mapcar 'car -cvs-map-ls)) accum)
+      (setq -cvs-map-ls (mapcar 'cdr -cvs-map-ls)))
+    (nreverse accum)))
 
 (defun cvs-first (l &optional n)
   (if (null n) (car l)