Mercurial > emacs
changeset 85233:977fdc85afd3
(erc-modified-channels-update): Use mapc rather than mapcar.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 13 Oct 2007 03:04:33 +0000 |
| parents | d473c33347de |
| children | c30f450d3159 |
| files | lisp/erc/erc-track.el |
| diffstat | 1 files changed, 11 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/erc/erc-track.el Sat Oct 13 03:03:54 2007 +0000 +++ b/lisp/erc/erc-track.el Sat Oct 13 03:04:33 2007 +0000 @@ -701,17 +701,17 @@ (unless erc-modified-channels-update-inside (let ((erc-modified-channels-update-inside t) (removed-channel nil)) - (mapcar (lambda (elt) - (let ((buffer (car elt))) - (when (or (not (bufferp buffer)) - (not (buffer-live-p buffer)) - (erc-buffer-visible buffer) - (and erc-track-remove-disconnected-buffers - (not (with-current-buffer buffer - erc-server-connected)))) - (setq removed-channel t) - (erc-modified-channels-remove-buffer buffer)))) - erc-modified-channels-alist) + (mapc (lambda (elt) + (let ((buffer (car elt))) + (when (or (not (bufferp buffer)) + (not (buffer-live-p buffer)) + (erc-buffer-visible buffer) + (and erc-track-remove-disconnected-buffers + (not (with-current-buffer buffer + erc-server-connected)))) + (setq removed-channel t) + (erc-modified-channels-remove-buffer buffer)))) + erc-modified-channels-alist) (when removed-channel (erc-modified-channels-display) (force-mode-line-update t)))))