Mercurial > emacs

comparison lisp/net/eudc-hotlist.el @ 85230:e2575abf895a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(eudc-edit-hotlist): Use mapc rather than mapcar.
author Glenn Morris <rgm@gnu.org>
date Sat, 13 Oct 2007 03:03:17 +0000
parents 84cf1e2214c5
children f873840f9fea d38543a1c0f9
comparison
equal deleted inserted replaced
85229:b5270c62a294 85230:e2575abf895a
67 (let ((proto-col 10) 67 (let ((proto-col 10)
68 gap) 68 gap)
69 (switch-to-buffer (get-buffer-create "*EUDC Servers*")) 69 (switch-to-buffer (get-buffer-create "*EUDC Servers*"))
70 (setq buffer-read-only nil) 70 (setq buffer-read-only nil)
71 (erase-buffer) 71 (erase-buffer)
72 (mapcar (function 72 (mapc (function
73 (lambda (entry) 73 (lambda (entry)
74 (setq proto-col (max (length (car entry)) proto-col)))) 74 (setq proto-col (max (length (car entry)) proto-col))))
75 eudc-server-hotlist) 75 eudc-server-hotlist)
76 (setq proto-col (+ 3 proto-col)) 76 (setq proto-col (+ 3 proto-col))
77 (setq gap (make-string (- proto-col 6) ?\ )) 77 (setq gap (make-string (- proto-col 6) ?\ ))
78 (insert " EUDC Servers\n" 78 (insert " EUDC Servers\n"
79 " ============\n" 79 " ============\n"
80 "\n" 80 "\n"
81 "Server" gap "Protocol\n" 81 "Server" gap "Protocol\n"
82 "------" gap "--------\n" 82 "------" gap "--------\n"
83 "\n") 83 "\n")
84 (setq eudc-hotlist-list-beginning (point)) 84 (setq eudc-hotlist-list-beginning (point))
85 (mapcar '(lambda (entry) 85 (mapc '(lambda (entry)
86 (insert (car entry)) 86 (insert (car entry))
87 (indent-to proto-col) 87 (indent-to proto-col)
88 (insert (symbol-name (cdr entry)) "\n")) 88 (insert (symbol-name (cdr entry)) "\n"))
89 eudc-server-hotlist) 89 eudc-server-hotlist)
90 (eudc-hotlist-mode))) 90 (eudc-hotlist-mode)))