Mercurial > emacs
comparison lisp/erc/erc-track.el @ 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 | ffc87ddd4025 |
children | 763be5e829a7 |
comparison
equal
deleted
inserted
replaced
85232:d473c33347de | 85233:977fdc85afd3 |
---|---|
699 ARGS are ignored." | 699 ARGS are ignored." |
700 (interactive) | 700 (interactive) |
701 (unless erc-modified-channels-update-inside | 701 (unless erc-modified-channels-update-inside |
702 (let ((erc-modified-channels-update-inside t) | 702 (let ((erc-modified-channels-update-inside t) |
703 (removed-channel nil)) | 703 (removed-channel nil)) |
704 (mapcar (lambda (elt) | 704 (mapc (lambda (elt) |
705 (let ((buffer (car elt))) | 705 (let ((buffer (car elt))) |
706 (when (or (not (bufferp buffer)) | 706 (when (or (not (bufferp buffer)) |
707 (not (buffer-live-p buffer)) | 707 (not (buffer-live-p buffer)) |
708 (erc-buffer-visible buffer) | 708 (erc-buffer-visible buffer) |
709 (and erc-track-remove-disconnected-buffers | 709 (and erc-track-remove-disconnected-buffers |
710 (not (with-current-buffer buffer | 710 (not (with-current-buffer buffer |
711 erc-server-connected)))) | 711 erc-server-connected)))) |
712 (setq removed-channel t) | 712 (setq removed-channel t) |
713 (erc-modified-channels-remove-buffer buffer)))) | 713 (erc-modified-channels-remove-buffer buffer)))) |
714 erc-modified-channels-alist) | 714 erc-modified-channels-alist) |
715 (when removed-channel | 715 (when removed-channel |
716 (erc-modified-channels-display) | 716 (erc-modified-channels-display) |
717 (force-mode-line-update t))))) | 717 (force-mode-line-update t))))) |
718 | 718 |
719 (defvar erc-track-mouse-face (if (featurep 'xemacs) | 719 (defvar erc-track-mouse-face (if (featurep 'xemacs) |