From 1eb4b4b95f37a1a7b9aa751496625a91d2348ca9 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Tue, 13 May 2008 21:09:20 +0000 Subject: [PATCH] (define-ibuffer-filter filename): Use `ibuffer-buffer-file-name'. --- lisp/ChangeLog | 7 +++++++ lisp/ibuf-ext.el | 11 +---------- 2 files changed, 8 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c5297e2eaf1..47852c456e0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2008-05-13 John Paul Wallington + + * ibuffer.el (ibuffer-buffer-file-name): New function. + (define-ibuffer-column filename): Use it. + + * ibuf-ext.el (define-ibuffer-filter filename): Use it. + 2008-05-13 Chong Yidong * talk.el (talk): Simplify. Pass display arg to talk-add-display diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index 6bdaed0a334..74850a6dca1 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -1030,16 +1030,7 @@ currently used by buffers." (:description "filename" :reader (read-from-minibuffer "Filter by filename (regexp): ")) (ibuffer-awhen (with-current-buffer buf - (or buffer-file-name - (and (boundp 'dired-directory) - (let ((dired-dir - (if (stringp dired-directory) - dired-directory - (car dired-directory)))) - (and dired-dir - (expand-file-name dired-dir)))) - (and (eq major-mode 'vc-dir-mode) - (bound-and-true-p default-directory)))) + (ibuffer-buffer-file-name)) (string-match qualifier it))) ;;;###autoload (autoload 'ibuffer-filter-by-size-gt "ibuf-ext") -- 2.39.5