# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1192244597 0
# Node ID e2575abf895a64db597b879410721df0dad75157
# Parent  b5270c62a29488c8f774ad35df8209584cc4fc06
(eudc-edit-hotlist): Use mapc rather than mapcar.

diff -r b5270c62a294 -r e2575abf895a lisp/net/eudc-hotlist.el
--- 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"))