[Emacs-diffs] Changes to emacs/lisp/erc/erc.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/04/27 18:23:37

Index: erc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/erc/erc.el,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -b -r1.47 -r1.48
--- erc.el      17 Apr 2008 05:02:14 -0000      1.47
+++ erc.el      27 Apr 2008 18:23:37 -0000      1.48
@@ -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: