From 9d458edce92bab856eab51af8a8499e1f3f86c3f Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Sun, 10 Aug 2008 03:42:43 +0000 Subject: [PATCH] (ibuffer-buffer-file-name): Return nil rather than empty string when no filename. (define-ibuffer-column filename): Accomodate that change. --- lisp/ibuffer.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 8626e692162..539f88ec3c1 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -1245,8 +1245,7 @@ a new window in the current frame, splitting vertically." dired-directory (car dired-directory))) (bound-and-true-p list-buffers-directory)))) - (and dirname (expand-file-name dirname))) - "")) + (and dirname (expand-file-name dirname))))) (define-ibuffer-op ibuffer-do-save () "Save marked buffers as with `save-buffer'." @@ -1768,7 +1767,7 @@ If point is on a group name, this function operates on that group." (t (format "%d files" total)))))) (let ((directory-abbrev-alist ibuffer-directory-abbrev-alist)) (abbreviate-file-name - (ibuffer-buffer-file-name)))) + (or (ibuffer-buffer-file-name) "")))) (define-ibuffer-column filename-and-process (:name "Filename/Process" -- 2.39.2