[PATCH] ibuffer.el cannot deal with (consp dired-directory)

[Daniel Brockman]

M-: (dired '("/" "/bin/sh")) RET M-x ibuffer RET BANG.

I can only think of the following obvious fix.

2005-05-09  Daniel Brockman  <address@hidden>

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

*** ibuffer.el  09 Feb 2005 16:50:42 +0100      1.66
--- ibuffer.el  09 May 2005 15:08:29 +0200      
***************
*** 1688,1694 ****
      (abbreviate-file-name
       (or buffer-file-name
         (and (boundp 'dired-directory)
!             dired-directory)
         ""))))
  
  (define-ibuffer-column filename-and-process
--- 1688,1696 ----
      (abbreviate-file-name
       (or buffer-file-name
         (and (boundp 'dired-directory)
!             (if (stringp dired-directory)
!                 dired-directory
!               (car dired-directory)))
         ""))))
  
  (define-ibuffer-column filename-and-process


-- 
Daniel Brockman <address@hidden>