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

(define-ibuffer-filter filename): Consider `dired-directory' if buffer

Browse Source 
has no file name.  From Sean O'Rourke <sorourke@cs.ucsd.edu>.
This commit is contained in:
John Paul Wallington 2004-09-14 20:07:07 +00:00
parent 46b00436e7
commit a386a960b2
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2004-09-14 Sean O'Rourke <sorourke@cs.ucsd.edu>
* ibuf-ext.el (define-ibuffer-filter filename): If buffer has
no file name consider `dired-directory'.
2004-09-14 Kim F. Storm <storm@cua.dk>
* faces.el (cursor): Add face-no-inherit property. Doc fix.

5
lisp/ibuf-ext.el
View File

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