Mercurial > emacs

diff lisp/erc/erc.el @ 94411:4d4cd9f2e77e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(erc-put-text-properties): Replace use of cl mapcar*.
author Glenn Morris <rgm@gnu.org>
date Sun, 27 Apr 2008 18:23:37 +0000
parents 908993cbed5e
children 2a734255bcc7
line wrap: on
line diff
--- 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: