(eudc-edit-hotlist): Use mapc rather than mapcar.

diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el
index 0509ac9ab7912053b2aadba75c806b97bfb30879..2914ebdc1b0bd9a622354a9c678d1f5e818f1f4e 100644 (file)
--- a/lisp/net/eudc-hotlist.el
+++ b/lisp/net/eudc-hotlist.el
@@ -69,10 +69,10 @@ These are the special commands of this mode:
     (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 @@ These are the special commands of this mode:
            "------" 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"))