# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1019793558 0
# Node ID ed308b7455652823a346c0e12d359b5fa04a673c
# Parent  fe92962101331df5d6a6178e2585679fe7dfcffb
(define column process): Use `ibuffer-aif'.

diff -r fe9296210133 -r ed308b745565 lisp/ibuffer.el
--- 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))