procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Colin Walters 2002-04-26 03:59:18 +00:00
parent a902944c2f
commit 96777edb82
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ibuffer.el
View file

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