(define-ibuffer-filter filename): Expand dired-directory since

buffer-file-name is absolute.
From Romain Francoise <romain@orebokech.com>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce81cb422fdabfeff03e96c3d7b02aaa45b24326..999fda0a02b40e41d00de8299b38e79b45b71dcd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-17  Romain Francoise  <romain@orebokech.com>
+
+       * ibuf-ext.el (define-ibuffer-filter filename): Expand
+       dired-directory since buffer-file-name is absolute.
+
 2004-09-17  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * ediff-init.el (ediff-current-diff-face-A)

diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index b7e6741e9d4fe6610f618d6f7dbde160df2ea0b1..5d24964362a7bcdc851f7d3a4ea31e93f200ab81 100644 (file)
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -1018,7 +1018,8 @@ currently used by buffers."
   (ibuffer-awhen (with-current-buffer buf
                   (or buffer-file-name
                       (and (boundp 'dired-directory)
-                           dired-directory)))
+                           dired-directory
+                           (expand-file-name dired-directory))))
     (string-match qualifier it)))
 
 ;;;###autoload (autoload 'ibuffer-filter-by-size-gt  "ibuf-ext.el")