Mercurial > emacs
diff lisp/ibuffer.el @ 44870:ed308b745565
(define column process): Use `ibuffer-aif'.
author | Colin Walters <walters@gnu.org> |
---|---|
date | Fri, 26 Apr 2002 03:59:18 +0000 |
parents | 6cd35f994b33 |
children | ee04dcf4fae7 |
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))