From: Glenn Morris <rgm@gnu.org>
Date: Sun, 27 Apr 2008 18:23:50 +0000 (+0000)
Subject: (erc-put-text-properties): Replace use of cl mapcar*.
X-Git-Tag: emacs-pretest-23.0.90~5999
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb89b1a26fef9c54fb3f67716f97fb9580a081fd;p=emacs.git

(erc-put-text-properties): Replace use of cl mapcar*.
---

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index 35e9f57bf80..637e6aa5f3b 100644
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,7 @@
+2008-04-27  Glenn Morris  <rgm@gnu.org>
+
+	* erc.el (erc-put-text-properties): Replace use of cl mapcar*.
+
 2008-04-14  Michael Olson  <mwolson@gnu.org>
 
 	* erc.el (erc-remove-text-properties-region): Disable this command
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index 1dae3562707..cadc6fed222 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -5043,9 +5043,9 @@ each property to the corresponding value in VALUE-LIST."
     (setq value-list (mapcar (lambda (x)
 			       t)
 			     properties)))
-  (mapcar* (lambda (prop value)
-	     (erc-put-text-property start end prop value object))
-	   properties value-list))
+  (dotimes (i (min (length properties) (length value-list)))
+    (erc-put-text-property start end (nth i properties)
+			   (nth i value-list) object)))
 
 ;;; Input area handling: