diff lisp/ibuffer.el @ 44870:ed308b745565

(define column process): Use `ibuffer-aif'.

--- 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))