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

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

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index f2ebb5db3241dc0baa3babb65362063f3ab90f51..213160b6f37147402d79f46866dcfd1880f8cf7d 100644 (file)
--- 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