andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Glenn Morris 2008-04-27 18:23:50 +00:00
parent 4741f7d4e5
commit eb89b1a26f
2 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/erc/ChangeLog
View file

@ -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

6
lisp/erc/erc.el
View file

@ -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: