Mercurial > emacs
comparison lisp/ibuf-ext.el @ 67408:8d183984281e
(define-ibuffer-filter filename): If `dired-directory' is a list then
really use its car.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Thu, 08 Dec 2005 23:48:18 +0000 |
| parents | d94285b2b933 |
| children | 0a74d0792db2 7beb78bc1f8e |
comparison
equal
deleted
inserted
replaced
| 67407:bb2f67d4e710 | 67408:8d183984281e |
|---|---|
| 1019 (:description "filename" | 1019 (:description "filename" |
| 1020 :reader (read-from-minibuffer "Filter by filename (regexp): ")) | 1020 :reader (read-from-minibuffer "Filter by filename (regexp): ")) |
| 1021 (ibuffer-awhen (with-current-buffer buf | 1021 (ibuffer-awhen (with-current-buffer buf |
| 1022 (or buffer-file-name | 1022 (or buffer-file-name |
| 1023 (and (boundp 'dired-directory) | 1023 (and (boundp 'dired-directory) |
| 1024 (if (stringp dired-directory) | 1024 (let ((dired-dir |
| 1025 dired-directory | 1025 (if (stringp dired-directory) |
| 1026 (car dired-directory)) | 1026 dired-directory |
| 1027 (expand-file-name dired-directory)))) | 1027 (car dired-directory)))) |
| 1028 (and dired-dir | |
| 1029 (expand-file-name dired-dir)))))) | |
| 1028 (string-match qualifier it))) | 1030 (string-match qualifier it))) |
| 1029 | 1031 |
| 1030 ;;;###autoload (autoload 'ibuffer-filter-by-size-gt "ibuf-ext") | 1032 ;;;###autoload (autoload 'ibuffer-filter-by-size-gt "ibuf-ext") |
| 1031 (define-ibuffer-filter size-gt | 1033 (define-ibuffer-filter size-gt |
| 1032 "Toggle current view to buffers with size greater than QUALIFIER." | 1034 "Toggle current view to buffers with size greater than QUALIFIER." |