From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 23 Oct 2007 15:57:57 +0000 (+0000)
Subject: (ibuffer-auto-update-changed): Use `dolist' rather than `mapcar';
X-Git-Tag: emacs-pretest-23.0.90~10114
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=368851a5f491110bf432f31887c0e803a48ecbff;p=emacs.git

(ibuffer-auto-update-changed): Use `dolist' rather than `mapcar';
return value is not used.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7df02ca2625..983a2e0278d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-23  Juanma Barranquero  <lekktu@gmail.com>
+
+	* ibuf-ext.el (ibuffer-auto-update-changed): Use `dolist' rather
+	than `mapcar'; return value is not used.
+
 2007-10-23  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* progmodes/gud.el (gdb-source-window, gud-tooltip-mode)
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index feebab40b43..6a34ca0f4e4 100644
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -224,13 +224,12 @@ Currently, this only applies to `ibuffer-saved-filters' and
 
 (defun ibuffer-auto-update-changed ()
   (when (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed)
-    (mapcar #'(lambda (buf)
-		(ignore-errors
-		  (with-current-buffer buf
-		    (when (and ibuffer-auto-mode
-			       (eq major-mode 'ibuffer-mode))
-		      (ibuffer-update nil t)))))
-	    (buffer-list))))
+    (dolist (buf (buffer-list))
+      (ignore-errors
+	(with-current-buffer buf
+	  (when (and ibuffer-auto-mode
+		     (eq major-mode 'ibuffer-mode))
+	    (ibuffer-update nil t)))))))
 
 ;;;###autoload
 (defun ibuffer-auto-mode (&optional arg)
@@ -243,7 +242,7 @@ With numeric ARG, enable auto-update if and only if ARG is positive."
        (if arg
 	   (plusp arg)
 	 (not ibuffer-auto-mode)))
-  (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed)
+  (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed) ; Initialize state vector
   (add-hook 'post-command-hook 'ibuffer-auto-update-changed)
   (ibuffer-update-mode-name))