mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(ibuffer-buffer-file-name): New function.

Browse Source 
(define-ibuffer-column filename): Use it.
This commit is contained in:
John Paul Wallington 2008-05-13 21:07:21 +00:00
parent a1feed48fe
commit 92cb2eaf1c
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/ibuffer.el
View File

@ -1233,6 +1233,17 @@ a new window in the current frame, splitting vertically."
(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 @@ 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
(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"