mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(erc-modified-channels-update): Use mapc rather than mapcar.

Browse source
This commit is contained in:
Glenn Morris 2007-10-13 03:04:55 +00:00
parent 3d3cfc902a
commit e2cfa9afa6
3 changed files with 50 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/erc/ChangeLog
View file

@ -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.

22
lisp/erc/erc-track.el
View file

@ -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)))))