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

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index 35e9f57bf80409f3fa0e31af93790c9cecbec2ba..637e6aa5f3b304842949583f070412e0480174a3 100644 (file)
--- 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 1dae3562707b520121a197d11edaa7bc6252d190..cadc6fed22262e8a8b36620e87bc515b6d3edfdc 100644 (file)
--- 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: