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." |