1580 |
(format "%s" mode-name)) |
(format "%s" mode-name)) |
1581 |
|
|
1582 |
(define-ibuffer-column process () |
(define-ibuffer-column process () |
1583 |
(let ((proc (get-buffer-process buffer))) |
(ibuffer-aif (get-buffer-process buffer) |
1584 |
(if proc |
(format "(%s %s)" it (process-status it)) |
1585 |
(format "(%s %s)" proc (process-status proc)) |
"none")) |
|
"none"))) |
|
1586 |
|
|
1587 |
(define-ibuffer-column filename () |
(define-ibuffer-column filename () |
1588 |
(let ((directory-abbrev-alist ibuffer-directory-abbrev-alist)) |
(let ((directory-abbrev-alist ibuffer-directory-abbrev-alist)) |