From: John Paul Wallington <jpw@pobox.com>
Date: Sun, 10 Aug 2008 03:42:43 +0000 (+0000)
Subject: (ibuffer-buffer-file-name): Return nil rather than empty string when
X-Git-Tag: emacs-pretest-23.0.90~3551
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d458edce92bab856eab51af8a8499e1f3f86c3f;p=emacs.git

(ibuffer-buffer-file-name): Return nil rather than empty string when
no filename.
(define-ibuffer-column filename): Accomodate that change.
---

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"