From: Glenn Morris <rgm@gnu.org>
Date: Sat, 13 Oct 2007 03:03:17 +0000 (+0000)
Subject: (eudc-edit-hotlist): Use mapc rather than mapcar.
X-Git-Tag: emacs-pretest-23.0.90~10369
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8566778a88d1a20fc43279bd38156fc25aff7ff5;p=emacs.git

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

diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el
index 0509ac9ab79..2914ebdc1b0 100644
--- 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"))