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

`ibuffer-current-formats'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5286147be738a0965fbd25a84ffc8e88a103100..03a23d7bdc2c6b29312a2f51da933516227e8dae 100644 (file)
--- 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 8ca3d9d1933054361d69c3eabf78bf4e2e4b2f50..e3ae9dcc5c4d776fefec16d7c528aa33987eaea4 100644 (file)
--- 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)