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

2 files changed, 7 insertions, 3 deletions

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: