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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2306081c47704a536c259dabfde368d33cbfc572..9849391e35ecfb9653624d90c1173abaed893899 100644 (file)
--- 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 f262a6324fba01a19f95e43ab8e30cdfee8c0413..fb824f0899607cc32928694e2325f399b2081c1c 100644 (file)
--- 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 1408adcd942903ab5416a5537a297a3975dd4ab4..ad3eaf73a4b1d253f2c6b8162663ebc9d4fb2bb3 100644 (file)
--- 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)))))