From 2baf64db72fc81205da4f097d3905b02510a8375 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Sat, 14 May 2005 12:53:34 +0000 Subject: [PATCH] (define-ibuffer-column filename): If `dired-directory' is a list, use its car. From: Daniel Brockman (tiny change) --- lisp/ibuffer.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 2.39.2