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

use the buffer's default directory as filename.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a4db6dcb6a050f5f76e8e59db35281d255217d5c..dadd12046bd57d1809d4e7c9cc7ed116fc113e11 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,9 @@
        * ibuffer.el (define-ibuffer-column filename): When the major mode
        is `vc-dir-mode' show the buffer's default directory.
 
+       * ibuf-ext.el (define-ibuffer-filter filename): Likewise when the
+       major mode is `vc-dir-mode' use the buffer's default directory.
+
 2008-04-30  Sam Steingold  <sds@gnu.org>
 
        * vc.el (vc-dir-delete-file): Add.

diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index 82face5eccb979ecf21531900d04b20d2ebf37cf..8be5a73b5f442b5b9f89960331c059e1555f893b 100644 (file)
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -1039,8 +1039,10 @@ currently used by buffers."
                                       dired-directory
                                     (car dired-directory))))
                              (and dired-dir
-                                  (expand-file-name dired-dir))))))
-    (string-match qualifier it)))
+                                  (expand-file-name dired-dir))))
+                      (and (eq major-mode 'vc-dir-mode)
+                           (bound-and-true-p default-directory))))
+                (string-match qualifier it)))
 
 ;;;###autoload (autoload 'ibuffer-filter-by-size-gt  "ibuf-ext")
 (define-ibuffer-filter size-gt