diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-10-13 03:04:55 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-10-13 03:04:55 +0000 |
| commit | e2cfa9afa691fb8b7a554cb685c16ff3d4e1ff2b (patch) | |
| tree | 45ad1d8662f88dad4dff2d0152a7563e8e643fb4 /lisp/erc | |
| parent | 3d3cfc902abe7edcd64f4d8d48b99936e25f6e70 (diff) | |
| download | emacs-e2cfa9afa691fb8b7a554cb685c16ff3d4e1ff2b.tar.gz | |
(erc-modified-channels-update): Use mapc rather than mapcar.
Diffstat (limited to 'lisp/erc')
| -rw-r--r-- | lisp/erc/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/erc/erc-track.el | 22 |
2 files changed, 16 insertions, 11 deletions
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index f262a6324fb..fb824f08996 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog @@ -1,3 +1,8 @@ +2007-10-13 Glenn Morris <rgm@gnu.org> + + * erc-track.el (erc-modified-channels-update): Use mapc rather + than mapcar. + 2007-09-18 Exal de Jesus Garcia Carrillo <exal@gmx.de> (tiny change) * erc.texi (Special-Features): Fix small typo. diff --git a/lisp/erc/erc-track.el b/lisp/erc/erc-track.el index 1408adcd942..ad3eaf73a4b 100644 --- a/lisp/erc/erc-track.el +++ b/lisp/erc/erc-track.el @@ -701,17 +701,17 @@ ARGS are ignored." (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))))) |