From 961daace815990efd4d54296d82d0092633b1717 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Tue, 7 May 2002 01:52:30 +0000
Subject: [PATCH] * gettext.el (gettext-mapcar*): Eliminate recursion.

---
 lisp/gettext.el |    9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/gettext.el b/lisp/gettext.el
index 5e9cbe9..31f5740 100644
--- a/lisp/gettext.el
+++ b/lisp/gettext.el
@@ -133,10 +133,11 @@
 (defun gettext-mapcar* (function &rest args)
   "Apply FUNCTION to successive cars of all ARGS.
 Return the list of results."
-  (unless (memq nil args)
-    (cons (apply function (mapcar #'car args))
-	  (apply #'gettext-mapcar* function
-		 (mapcar #'cdr args)))))
+  (let (result)
+    (while (not (memq nil args))
+      (push (apply function (mapcar #'car args)) result)
+      (setq args (mapcar #'cdr args)))
+    (nreverse result)))
 
 (defun gettext-load-message-catalogue (file)
   (with-temp-buffer
-- 
1.7.10.4