# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1210712913 0
# Node ID 4584a4064fe399ecd3bc94ae75639bbd4994bcc6
# Parent  c3aeab0459b2cf3099d12fe95547c573e05241f2
(define-ibuffer-filter filename): Use `ibuffer-buffer-file-name'.

diff -r c3aeab0459b2 -r 4584a4064fe3 lisp/ibuf-ext.el
--- a/lisp/ibuf-ext.el	Tue May 13 21:07:21 2008 +0000
+++ b/lisp/ibuf-ext.el	Tue May 13 21:08:33 2008 +0000
@@ -1030,16 +1030,7 @@
   (:description "filename"
    :reader (read-from-minibuffer "Filter by filename (regexp): "))
   (ibuffer-awhen (with-current-buffer buf
-		   (or buffer-file-name
-		       (and (boundp 'dired-directory)
-			    (let ((dired-dir
-				   (if (stringp dired-directory)
-				       dired-directory
-				     (car dired-directory))))
-			      (and dired-dir
-				   (expand-file-name dired-dir))))
-		       (and (eq major-mode 'vc-dir-mode)
-			    (bound-and-true-p default-directory))))
+		   (ibuffer-buffer-file-name))
 		 (string-match qualifier it)))
 
 ;;;###autoload (autoload 'ibuffer-filter-by-size-gt  "ibuf-ext")