comparison lisp/ibuffer.el @ 43249:783a6eac348c

(ibuffer-switch-format): Supply required argument for `ibuffer-current-formats'.
author Colin Walters <walters@gnu.org>
date Tue, 12 Feb 2002 04:49:32 +0000
parents 2a6ac08c9a18
children 6d5695dd7639
comparison
equal deleted inserted replaced
43248:9e2bfc2d4d23 43249:783a6eac348c
1692 (interactive) 1692 (interactive)
1693 (assert (eq major-mode 'ibuffer-mode)) 1693 (assert (eq major-mode 'ibuffer-mode))
1694 (unless (consp ibuffer-formats) 1694 (unless (consp ibuffer-formats)
1695 (error "Ibuffer error: No formats!")) 1695 (error "Ibuffer error: No formats!"))
1696 (setq ibuffer-current-format 1696 (setq ibuffer-current-format
1697 (if (>= ibuffer-current-format (1- (length (ibuffer-current-formats)))) 1697 (if (>= ibuffer-current-format (1- (length (ibuffer-current-formats nil))))
1698 0 1698 0
1699 (1+ ibuffer-current-format))) 1699 (1+ ibuffer-current-format)))
1700 (ibuffer-update-format) 1700 (ibuffer-update-format)
1701 (ibuffer-redisplay t)) 1701 (ibuffer-redisplay t))
1702 1702