From: Colin Walters <walters@gnu.org>
Date: Tue, 12 Feb 2002 04:50:04 +0000 (+0000)
Subject: (ibuffer-switch-format): Supply required argument for
X-Git-Tag: ttn-vms-21-2-B4~16723
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=80a06d647faa1dab77f77997a800f18fe5351ded;p=emacs.git

(ibuffer-switch-format): Supply required argument for
`ibuffer-current-formats'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5286147be7..03a23d7bdc2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-11  Colin Walters  <walters@verbum.org>
+
+	* ibuffer.el (ibuffer-switch-format): Supply required argument for
+	`ibuffer-current-formats'.
+
 2002-02-12  Miles Bader  <miles@gnu.org>
 
 	* faces.el (mode-line-inactive): Add dark-background variant.
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 8ca3d9d1933..e3ae9dcc5c4 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1694,7 +1694,7 @@ If optional argument INCLUDE-LINES is non-nil, return a list like
   (unless (consp ibuffer-formats)
     (error "Ibuffer error: No formats!"))
   (setq ibuffer-current-format
-	(if (>= ibuffer-current-format (1- (length (ibuffer-current-formats))))
+	(if (>= ibuffer-current-format (1- (length (ibuffer-current-formats nil))))
 	    0
 	  (1+ ibuffer-current-format)))
   (ibuffer-update-format)