(define-ibuffer-column filename): When the major mode is `vc-dir-mode'

show the buffer's default directory.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e22f4cb2ba71733f35f3256183db0ec761140f41..a4db6dcb6a050f5f76e8e59db35281d255217d5c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-04-30  John Paul Wallington  <jpw@pobox.com>
+
+       * ibuffer.el (define-ibuffer-column filename): When the major mode
+       is `vc-dir-mode' show the buffer's default directory.
+
 2008-04-30  Sam Steingold  <sds@gnu.org>
 
        * vc.el (vc-dir-delete-file): Add.

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 4aafea04855a3155e2ee24ee4d155554e4549a3e..fbd3769edd7210498f617e510583d8d8b49743f0 100644 (file)
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1759,6 +1759,8 @@ If point is on a group name, this function operates on that group."
              (if (stringp dired-directory)
                  dired-directory
                (car dired-directory)))
+        (and (eq major-mode 'vc-dir-mode)
+             (bound-and-true-p default-directory))
         ""))))
 
 (define-ibuffer-column filename-and-process