1451 |
;; generate a call to the column function. |
;; generate a call to the column function. |
1452 |
(ibuffer-aif (assq sym ibuffer-inline-columns) |
(ibuffer-aif (assq sym ibuffer-inline-columns) |
1453 |
(nth 1 it) |
(nth 1 it) |
1454 |
`(,sym buffer mark (current-buffer)))) |
`(,sym buffer mark))) |
1455 |
;; You're not expected to understand this. Hell, I |
;; You're not expected to understand this. Hell, I |
1456 |
;; don't even understand it, and I wrote it five |
;; don't even understand it, and I wrote it five |
1457 |
;; minutes ago. |
;; minutes ago. |
1624 |
|
|
1625 |
(define-ibuffer-column filename-and-process (:name "Filename/Process") |
(define-ibuffer-column filename-and-process (:name "Filename/Process") |
1626 |
(let ((proc (get-buffer-process buffer)) |
(let ((proc (get-buffer-process buffer)) |
1627 |
(filename (ibuffer-make-column-filename buffer mark ibuffer-buf))) |
(filename (ibuffer-make-column-filename buffer mark))) |
1628 |
(if proc |
(if proc |
1629 |
(concat (propertize (format "(%s %s) " proc (process-status proc)) |
(concat (propertize (format "(%s %s) " proc (process-status proc)) |
1630 |
'font-lock-face 'italic) |
'font-lock-face 'italic) |
2380 |
(setq show-trailing-whitespace nil) |
(setq show-trailing-whitespace nil) |
2381 |
(set (make-local-variable 'revert-buffer-function) |
(set (make-local-variable 'revert-buffer-function) |
2382 |
#'ibuffer-update) |
#'ibuffer-update) |
2383 |
|
;; Only use font-core.el. |
2384 |
|
(set (make-local-variable 'font-lock-defaults) |
2385 |
|
'(nil t nil nil nil (font-lock-core-only . t))) |
2386 |
(set (make-local-variable 'ibuffer-sorting-mode) |
(set (make-local-variable 'ibuffer-sorting-mode) |
2387 |
ibuffer-default-sorting-mode) |
ibuffer-default-sorting-mode) |
2388 |
(set (make-local-variable 'ibuffer-sorting-reversep) |
(set (make-local-variable 'ibuffer-sorting-reversep) |