From 96777edb8235b7087cef34e20778ce8c946a7b13 Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Fri, 26 Apr 2002 03:59:18 +0000 Subject: [PATCH] (define column process): Use `ibuffer-aif'. --- lisp/ibuffer.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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)) -- 2.39.5