(define-ibuffer-column filename): If `dired-directory' is a list, use its car.

From: Daniel Brockman  <daniel@brockman.se>  (tiny change)

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index f2ebb5db324..213160b6f37 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1688,7 +1688,9 @@ If point is on a group name, this function operates on that group."
     (abbreviate-file-name
      (or buffer-file-name
          (and (boundp 'dired-directory)
-              dired-directory)
+              (if (stringp dired-directory)
+                  dired-directory
+                (car dired-directory))) 
          ""))))
 
 (define-ibuffer-column filename-and-process