Mercurial > emacs
diff lisp/ibuffer.el @ 62321:d8390b93c19c
(define-ibuffer-column filename): If `dired-directory' is a list, use its car.
From: Daniel Brockman <daniel@brockman.se> (tiny change)
author | John Paul Wallington <jpw@pobox.com> |
---|---|
date | Sat, 14 May 2005 12:53:34 +0000 |
parents | aac0a33f5772 |
children | 64641f400699 f042e7c0fe20 |
line wrap: on
line diff
--- a/lisp/ibuffer.el Sat May 14 12:30:08 2005 +0000 +++ b/lisp/ibuffer.el Sat May 14 12:53:34 2005 +0000 @@ -1688,7 +1688,9 @@ (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