# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1209320617 0
# Node ID 4d4cd9f2e77ee1ee7b8363adbd1b508ee025c7c4
# Parent  850fe8049c1a676d9a348a1e7774993ba681be6b
(erc-put-text-properties): Replace use of cl mapcar*.

diff -r 850fe8049c1a -r 4d4cd9f2e77e lisp/erc/erc.el
--- a/lisp/erc/erc.el	Sun Apr 27 18:19:53 2008 +0000
+++ b/lisp/erc/erc.el	Sun Apr 27 18:23:37 2008 +0000
@@ -5043,9 +5043,9 @@
     (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: