Mercurial > emacs
comparison lisp/ibuf-ext.el @ 57128:910cd512d4a0
(define-ibuffer-filter filename): Expand dired-directory since
buffer-file-name is absolute.
From Romain Francoise <romain@orebokech.com>.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Sat, 18 Sep 2004 08:13:11 +0000 |
| parents | eeb2a6261d0d |
| children | f2e389526e8b 0796fc36c2bd |
comparison
equal
deleted
inserted
replaced
| 57127:a4b2ce7d4d07 | 57128:910cd512d4a0 |
|---|---|
| 1016 (:description "filename" | 1016 (:description "filename" |
| 1017 :reader (read-from-minibuffer "Filter by filename (regexp): ")) | 1017 :reader (read-from-minibuffer "Filter by filename (regexp): ")) |
| 1018 (ibuffer-awhen (with-current-buffer buf | 1018 (ibuffer-awhen (with-current-buffer buf |
| 1019 (or buffer-file-name | 1019 (or buffer-file-name |
| 1020 (and (boundp 'dired-directory) | 1020 (and (boundp 'dired-directory) |
| 1021 dired-directory))) | 1021 dired-directory |
| 1022 (expand-file-name dired-directory)))) | |
| 1022 (string-match qualifier it))) | 1023 (string-match qualifier it))) |
| 1023 | 1024 |
| 1024 ;;;###autoload (autoload 'ibuffer-filter-by-size-gt "ibuf-ext.el") | 1025 ;;;###autoload (autoload 'ibuffer-filter-by-size-gt "ibuf-ext.el") |
| 1025 (define-ibuffer-filter size-gt | 1026 (define-ibuffer-filter size-gt |
| 1026 "Toggle current view to buffers with size greater than QUALIFIER." | 1027 "Toggle current view to buffers with size greater than QUALIFIER." |