Mercurial > emacs
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 |