/[emacs]/emacs/lisp/ibuffer.el
ViewVC logotype

Diff of /emacs/lisp/ibuffer.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by walters, Thu Apr 25 19:03:12 2002 UTC revision 1.23 by walters, Fri Apr 26 03:59:18 2002 UTC
# Line 1580  If point is on a group name, this functi Line 1580  If point is on a group name, this functi
1580    (format "%s" mode-name))    (format "%s" mode-name))
1581    
1582  (define-ibuffer-column process ()  (define-ibuffer-column process ()
1583    (let ((proc (get-buffer-process buffer)))    (ibuffer-aif (get-buffer-process buffer)
1584      (if proc        (format "(%s %s)" it (process-status it))
1585          (format "(%s %s)" proc (process-status proc))      "none"))
       "none")))  
1586    
1587  (define-ibuffer-column filename ()  (define-ibuffer-column filename ()
1588    (let ((directory-abbrev-alist ibuffer-directory-abbrev-alist))    (let ((directory-abbrev-alist ibuffer-directory-abbrev-alist))

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26