From 8566778a88d1a20fc43279bd38156fc25aff7ff5 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 13 Oct 2007 03:03:17 +0000 Subject: [PATCH] (eudc-edit-hotlist): Use mapc rather than mapcar. --- lisp/net/eudc-hotlist.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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")) -- 2.39.5