From: John Paul Wallington <jpw@pobox.com>
Date: Sat, 14 May 2005 12:53:34 +0000 (+0000)
Subject: (define-ibuffer-column filename): If `dired-directory' is a list, use its car.
X-Git-Tag: ttn-vms-21-2-B4~317
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2baf64db72fc81205da4f097d3905b02510a8375;p=emacs.git

(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 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