From: Colin Walters <walters@gnu.org>
Date: Fri, 26 Apr 2002 03:59:18 +0000 (+0000)
Subject: (define column process): Use `ibuffer-aif'.
X-Git-Tag: ttn-vms-21-2-B4~15389
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=96777edb8235b7087cef34e20778ce8c946a7b13;p=emacs.git

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

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index b9e914684eb..3626227e36d 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1580,10 +1580,9 @@ If point is on a group name, this function operates on that group."
   (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))