diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-10-13 03:03:17 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-10-13 03:03:17 +0000 |
| commit | 8566778a88d1a20fc43279bd38156fc25aff7ff5 (patch) | |
| tree | b16546b77e47acd748fe1271b6b66cf993fcd464 /lisp/net/eudc-hotlist.el | |
| parent | 8c4b8006b04424e5722ad93ce1313c253759aa65 (diff) | |
| download | emacs-8566778a88d1a20fc43279bd38156fc25aff7ff5.tar.gz | |
(eudc-edit-hotlist): Use mapc rather than mapcar.
Diffstat (limited to 'lisp/net/eudc-hotlist.el')
| -rw-r--r-- | lisp/net/eudc-hotlist.el | 10 |
1 files 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")) |