From: Glenn Morris <rgm@gnu.org>
Date: Sat, 13 Oct 2007 03:04:55 +0000 (+0000)
Subject: (erc-modified-channels-update): Use mapc rather than mapcar.
X-Git-Tag: emacs-pretest-23.0.90~10366
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e2cfa9afa691fb8b7a554cb685c16ff3d4e1ff2b;p=emacs.git

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

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