Mercurial > emacs
changeset 44870:ed308b745565
(define column process): Use `ibuffer-aif'.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Fri, 26 Apr 2002 03:59:18 +0000 |
| parents | fe9296210133 |
| children | 15b639b48157 |
| files | lisp/ibuffer.el |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ibuffer.el Fri Apr 26 03:59:05 2002 +0000 +++ b/lisp/ibuffer.el Fri Apr 26 03:59:18 2002 +0000 @@ -1580,10 +1580,9 @@ (format "%s" mode-name)) (define-ibuffer-column process () - (let ((proc (get-buffer-process buffer))) - (if proc - (format "(%s %s)" proc (process-status proc)) - "none"))) + (ibuffer-aif (get-buffer-process buffer) + (format "(%s %s)" it (process-status it)) + "none")) (define-ibuffer-column filename () (let ((directory-abbrev-alist ibuffer-directory-abbrev-alist))