From a386a960b25ff04482e5316585457bca8435c3d9 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Tue, 14 Sep 2004 20:07:07 +0000 Subject: [PATCH] (define-ibuffer-filter filename): Consider `dired-directory' if buffer has no file name. From Sean O'Rourke . --- lisp/ChangeLog | 5 +++++ lisp/ibuf-ext.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bba5b368d84..dfd96e19fe3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-09-14 Sean O'Rourke + + * ibuf-ext.el (define-ibuffer-filter filename): If buffer has + no file name consider `dired-directory'. + 2004-09-14 Kim F. Storm * faces.el (cursor): Add face-no-inherit property. Doc fix. diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index 96678d2bc9a..b7e6741e9d4 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -1015,7 +1015,10 @@ currently used by buffers." "Toggle current view to buffers with filename matching QUALIFIER." (:description "filename" :reader (read-from-minibuffer "Filter by filename (regexp): ")) - (ibuffer-awhen (buffer-file-name buf) + (ibuffer-awhen (with-current-buffer buf + (or buffer-file-name + (and (boundp 'dired-directory) + dired-directory))) (string-match qualifier it))) ;;;###autoload (autoload 'ibuffer-filter-by-size-gt "ibuf-ext.el") -- 2.39.2