(define-ibuffer-filter filename): Consider `dired-directory' if buffer

has no file name.  From Sean O'Rourke <sorourke@cs.ucsd.edu>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bba5b368d845666f2e61fef9783d7bb89897ed73..dfd96e19fe39ed247fb17ddae22833e42c8e598a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-14  Sean O'Rourke  <sorourke@cs.ucsd.edu>
+
+       * ibuf-ext.el (define-ibuffer-filter filename): If buffer has
+       no file name consider `dired-directory'.
+
 2004-09-14  Kim F. Storm  <storm@cua.dk>
 
        * faces.el (cursor): Add face-no-inherit property.  Doc fix.

diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index 96678d2bc9a9f0831339a52c59fa63d6bc9c6660..b7e6741e9d4fe6610f618d6f7dbde160df2ea0b1 100644 (file)
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -1015,7 +1015,10 @@ currently used by buffers."
   "Toggle current view to buffers with filename matching QUALIFIER."
   (:description "filename"
    :reader (read-from-minibuffer "Filter by filename (regexp): "))
-  (ibuffer-awhen (buffer-file-name buf)
+  (ibuffer-awhen (with-current-buffer buf
+                  (or buffer-file-name
+                      (and (boundp 'dired-directory)
+                           dired-directory)))
     (string-match qualifier it)))
 
 ;;;###autoload (autoload 'ibuffer-filter-by-size-gt  "ibuf-ext.el")