(ibuffer-buffer-file-name): Return nil rather than empty string when

no filename.
(define-ibuffer-column filename): Accomodate that change.
This commit is contained in:
John Paul Wallington 2008-08-10 03:42:43 +00:00
parent a43a8a2e81
commit 9d458edce9

View file

@ -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"