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

3 files changed, 50 insertions, 11 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2306081c477..9849391e35e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,37 @@
+2007-10-13  Glenn Morris  <rgm@gnu.org>
+
+        * woman.el (woman0-rename): Fix paren typo.
+
+        * mail/feedmail.el (feedmail-run-the-queue)
+        (feedmail-look-at-queue-directory):
+        * mail/reporter.el (reporter-dump-state):
+        * net/eudc-hotlist.el (eudc-edit-hotlist):
+        * net/eudc.el (eudc-display-records)
+        (eudc-filter-duplicate-attributes)
+        (eudc-distribute-field-on-records, eudc-query-form)
+        (eudc-process-form):
+        * net/eudcb-bbdb.el (eudc-bbdb-filter-non-matching-record)
+        (eudc-bbdb-query-internal):
+        * net/eudcb-ldap.el (eudc-ldap-simple-query-internal):
+        * net/socks.el (socks-build-auth-list):
+        * progmodes/cc-cmds.el (top level):
+        * progmodes/cc-styles.el (c-make-styles-buffer-local)
+        (c-set-style):
+        * progmodes/cperl-mode.el (top level, cperl-imenu-addback)
+        (cperl-write-tags, cperl-tags-treeify):
+        * progmodes/ebnf-yac.el (ebnf-yac-token-table):
+        * progmodes/ebnf2ps.el (ebnf-map-name, ebnf-dimensions):
+        * progmodes/idlw-shell.el (idlwave-shell-filter-bp, top level):
+        * progmodes/idlw-toolbar.el (idlwave-toolbar-add-everywhere)
+        (idlwave-toolbar-remove-everywhere):
+        * progmodes/idlwave.el (idlwave-indent-line)
+        (idlwave-sintern-keyword-list, idlwave-scan-user-lib-files)
+        (idlwave-write-paths, idlwave-all-method-classes)
+        (idlwave-all-method-keyword-classes, idlwave-entry-keywords)
+        (idlwave-fix-keywords, idlwave-display-calling-sequence):
+        * textmodes/org.el (org-export-as-html, org-export-as-ascii)
+        (org-fast-tag-selection): Use mapc rather than mapcar.
+
 2007-10-13  Dan Nicolaescu  <dann@ics.uci.edu>
 
         * diff-mode.el (diff-fine-change): Add :group.
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)))))