From eb89b1a26fef9c54fb3f67716f97fb9580a081fd Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 27 Apr 2008 18:23:50 +0000 Subject: [PATCH] (erc-put-text-properties): Replace use of cl mapcar*. --- lisp/erc/ChangeLog | 4 ++++ lisp/erc/erc.el | 6 +++--- 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 + + * erc.el (erc-put-text-properties): Replace use of cl mapcar*. + 2008-04-14 Michael Olson * 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: -- 2.39.5