From: John Paul Wallington <jpw@pobox.com>
Date: Thu, 1 May 2008 00:08:38 +0000 (+0000)
Subject: (define-ibuffer-filter filename): When the major mode is `vc-dir-mode'
X-Git-Tag: emacs-pretest-23.0.90~5920
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9e198332bb13d82964e89bad1cee521c0362070;p=emacs.git

(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 a4db6dcb6a0..dadd12046bd 100644
--- 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 82face5eccb..8be5a73b5f4 100644
--- 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