1585 |
(let ((buf (ibuffer-current-buffer))) |
(let ((buf (ibuffer-current-buffer))) |
1586 |
(when buf |
(when buf |
1587 |
(let ((mark (ibuffer-current-mark))) |
(let ((mark (ibuffer-current-mark))) |
1588 |
(delete-region (point) (1+ (line-end-position))) |
(save-excursion |
1589 |
(ibuffer-insert-buffer-line |
(delete-region (point) (1+ (line-end-position))) |
1590 |
buf mark |
(ibuffer-insert-buffer-line |
1591 |
(ibuffer-current-format)) |
buf mark |
1592 |
|
(ibuffer-current-format))) |
1593 |
(when ibuffer-shrink-to-minimum-size |
(when ibuffer-shrink-to-minimum-size |
1594 |
(ibuffer-shrink-to-fit))))))) |
(ibuffer-shrink-to-fit))))))) |
1595 |
|
|