Mercurial > emacs

changeset 94906:4584a4064fe3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(define-ibuffer-filter filename): Use `ibuffer-buffer-file-name'.
author John Paul Wallington <jpw@pobox.com>
date Tue, 13 May 2008 21:08:33 +0000
parents c3aeab0459b2
children c1fb5c7c4869
files lisp/ibuf-ext.el
diffstat 1 files changed, 1 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- 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")