From: John Paul Wallington <jpw@pobox.com>
Date: Wed, 2 Jul 2008 13:28:01 +0000 (+0000)
Subject: (ibuffer-buffer-file-name): Use `list-buffers-directory'.  Remove
X-Git-Tag: emacs-pretest-23.0.90~4343
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=414408cdabe4e28ffb3729908b54bfd00f33372d;p=emacs.git

(ibuffer-buffer-file-name): Use `list-buffers-directory'.  Remove
special-casing for `cvs-mode' and `vc-dir-mode'.
Suggested by Dan Nicolaescu.
---

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 6843602bd52..cfbd1df4cdd 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1242,8 +1242,7 @@ a new window in the current frame, splitting vertically."
 			      (if (stringp dired-directory)
 				  dired-directory
 				(car dired-directory)))
-			 (and (memq major-mode '(cvs-mode vc-dir-mode))
-			      (bound-and-true-p default-directory)))))
+			 (bound-and-true-p list-buffers-directory))))
 	(and dirname (expand-file-name dirname)))
       ""))