Mercurial > emacs
diff lisp/net/eudc-hotlist.el @ 85230:e2575abf895a
(eudc-edit-hotlist): Use mapc rather than mapcar.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 13 Oct 2007 03:03:17 +0000 |
parents | 84cf1e2214c5 |
children | f873840f9fea d38543a1c0f9 |
line wrap: on
line diff
--- a/lisp/net/eudc-hotlist.el Sat Oct 13 03:02:57 2007 +0000 +++ b/lisp/net/eudc-hotlist.el Sat Oct 13 03:03:17 2007 +0000 @@ -69,10 +69,10 @@ (switch-to-buffer (get-buffer-create "*EUDC Servers*")) (setq buffer-read-only nil) (erase-buffer) - (mapcar (function - (lambda (entry) - (setq proto-col (max (length (car entry)) proto-col)))) - eudc-server-hotlist) + (mapc (function + (lambda (entry) + (setq proto-col (max (length (car entry)) proto-col)))) + eudc-server-hotlist) (setq proto-col (+ 3 proto-col)) (setq gap (make-string (- proto-col 6) ?\ )) (insert " EUDC Servers\n" @@ -82,7 +82,7 @@ "------" gap "--------\n" "\n") (setq eudc-hotlist-list-beginning (point)) - (mapcar '(lambda (entry) + (mapc '(lambda (entry) (insert (car entry)) (indent-to proto-col) (insert (symbol-name (cdr entry)) "\n"))