(ibuffer-switch-format): Supply required argument for

`ibuffer-current-formats'.

2 files changed, 6 insertions, 1 deletions

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)