# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1134085698 0
# Node ID 8d183984281e2148f316ce450216f1e40ab670eb
# Parent  bb2f67d4e7105a7891f338cc1db9bc3bc5de6da4
(define-ibuffer-filter filename): If `dired-directory' is a list then
really use its car.

diff -r bb2f67d4e710 -r 8d183984281e lisp/ibuf-ext.el
--- a/lisp/ibuf-ext.el	Thu Dec 08 22:52:50 2005 +0000
+++ b/lisp/ibuf-ext.el	Thu Dec 08 23:48:18 2005 +0000
@@ -1021,10 +1021,12 @@
   (ibuffer-awhen (with-current-buffer buf
 		   (or buffer-file-name
 		       (and (boundp 'dired-directory)
-			    (if (stringp dired-directory)
-				dired-directory
-			      (car dired-directory))
-			    (expand-file-name dired-directory))))
+			    (let ((dired-dir
+				   (if (stringp dired-directory)
+				       dired-directory
+				     (car dired-directory))))
+			      (and dired-dir
+				   (expand-file-name dired-dir))))))
     (string-match qualifier it)))
 
 ;;;###autoload (autoload 'ibuffer-filter-by-size-gt  "ibuf-ext")