Commit 1eb4b4b9 authored by John Paul Wallington's avatar John Paul Wallington

(define-ibuffer-filter filename): Use `ibuffer-buffer-file-name'.

parent 92cb2eaf
2008-05-13 John Paul Wallington <jpw@pobox.com>
* 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 <cyd@stupidchicken.com> 2008-05-13 Chong Yidong <cyd@stupidchicken.com>
* talk.el (talk): Simplify. Pass display arg to talk-add-display * talk.el (talk): Simplify. Pass display arg to talk-add-display
......
...@@ -1030,16 +1030,7 @@ currently used by buffers." ...@@ -1030,16 +1030,7 @@ currently used by buffers."
(:description "filename" (:description "filename"
:reader (read-from-minibuffer "Filter by filename (regexp): ")) :reader (read-from-minibuffer "Filter by filename (regexp): "))
(ibuffer-awhen (with-current-buffer buf (ibuffer-awhen (with-current-buffer buf
(or buffer-file-name (ibuffer-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))))
(string-match qualifier it))) (string-match qualifier it)))
;;;###autoload (autoload 'ibuffer-filter-by-size-gt "ibuf-ext") ;;;###autoload (autoload 'ibuffer-filter-by-size-gt "ibuf-ext")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment