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