6 |
;; Created: 6 Dec 2001 |
;; Created: 6 Dec 2001 |
7 |
;; Keywords: buffer, convenience |
;; Keywords: buffer, convenience |
8 |
|
|
9 |
;; This file is not currently part of GNU Emacs. |
;; This file is part of GNU Emacs. |
10 |
|
|
11 |
;; This program is free software; you can redistribute it and/or |
;; This program is free software; you can redistribute it and/or |
12 |
;; modify it under the terms of the GNU General Public License as |
;; modify it under the terms of the GNU General Public License as |
61 |
(save-excursion |
(save-excursion |
62 |
,@body)) |
,@body)) |
63 |
(with-current-buffer ,bufsym |
(with-current-buffer ,bufsym |
64 |
(ibuffer-insert-buffers-and-marks |
(ibuffer-redisplay-engine |
65 |
;; Get rid of dead buffers |
;; Get rid of dead buffers |
66 |
(delq nil |
(delq nil |
67 |
(mapcar #'(lambda (e) (when (buffer-live-p (car e)) |
(mapcar #'(lambda (e) (when (buffer-live-p (car e)) |