diff lisp/ibuf-ext.el @ 85590:3055282f9d8f

(ibuffer-auto-update-changed): Use `dolist' rather than `mapcar'; return value is not used.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 23 Oct 2007 15:54:06 +0000
parents 4e025fb6178b
children d8fd4b494f77 4bc33ffdda1a
line wrap: on
line diff
--- a/lisp/ibuf-ext.el	Tue Oct 23 15:44:23 2007 +0000
+++ b/lisp/ibuf-ext.el	Tue Oct 23 15:54:06 2007 +0000
@@ -224,13 +224,12 @@
 
 (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 @@
        (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))