# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1210712841 0
# Node ID c3aeab0459b2cf3099d12fe95547c573e05241f2
# Parent  c71ea3609cd7b024fc536037514577c7adac12fd
(ibuffer-buffer-file-name): New function.
(define-ibuffer-column filename): Use it.

diff -r c71ea3609cd7 -r c3aeab0459b2 lisp/ibuffer.el
--- a/lisp/ibuffer.el	Tue May 13 20:50:32 2008 +0000
+++ b/lisp/ibuffer.el	Tue May 13 21:07:21 2008 +0000
@@ -1233,6 +1233,17 @@
 (defsubst ibuffer-map-deletion-lines (func)
   (ibuffer-map-on-mark ibuffer-deletion-char func))
 
+(defun ibuffer-buffer-file-name ()
+  (or buffer-file-name
+      (let ((dirname (or (and (boundp 'dired-directory)
+			      (if (stringp dired-directory)
+				  dired-directory
+				(car dired-directory)))
+			 (and (memq major-mode '(cvs-mode vc-dir-mode))
+			      (bound-and-true-p default-directory)))))
+	(and dirname (expand-file-name dirname)))
+      ""))
+
 (define-ibuffer-op ibuffer-do-save ()
   "Save marked buffers as with `save-buffer'."
   (:complex t
@@ -1753,14 +1764,7 @@
 	     (t (format "%d files" total))))))
   (let ((directory-abbrev-alist ibuffer-directory-abbrev-alist))
     (abbreviate-file-name
-     (or buffer-file-name
-	 (and (boundp 'dired-directory)
-	      (if (stringp dired-directory)
-		  dired-directory
-		(car dired-directory)))
-	 (and (eq major-mode 'vc-dir-mode)
-	      (bound-and-true-p default-directory))
-	 ""))))
+     (ibuffer-buffer-file-name))))
 
 (define-ibuffer-column filename-and-process
   (:name "Filename/Process"