Mercurial > emacs
comparison lisp/ibuf-ext.el @ 94503:922712402e72
(define-ibuffer-filter filename): When the major mode is `vc-dir-mode'
use the buffer's default directory as filename.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Thu, 01 May 2008 00:07:13 +0000 |
| parents | 4693d30bd9c1 |
| children | ee5932bf781d |
comparison
equal
deleted
inserted
replaced
| 94502:ce541b36427b | 94503:922712402e72 |
|---|---|
| 1037 (let ((dired-dir | 1037 (let ((dired-dir |
| 1038 (if (stringp dired-directory) | 1038 (if (stringp dired-directory) |
| 1039 dired-directory | 1039 dired-directory |
| 1040 (car dired-directory)))) | 1040 (car dired-directory)))) |
| 1041 (and dired-dir | 1041 (and dired-dir |
| 1042 (expand-file-name dired-dir)))))) | 1042 (expand-file-name dired-dir)))) |
| 1043 (string-match qualifier it))) | 1043 (and (eq major-mode 'vc-dir-mode) |
| 1044 (bound-and-true-p default-directory)))) | |
| 1045 (string-match qualifier it))) | |
| 1044 | 1046 |
| 1045 ;;;###autoload (autoload 'ibuffer-filter-by-size-gt "ibuf-ext") | 1047 ;;;###autoload (autoload 'ibuffer-filter-by-size-gt "ibuf-ext") |
| 1046 (define-ibuffer-filter size-gt | 1048 (define-ibuffer-filter size-gt |
| 1047 "Toggle current view to buffers with size greater than QUALIFIER." | 1049 "Toggle current view to buffers with size greater than QUALIFIER." |
| 1048 (:description "size greater than" | 1050 (:description "size greater than" |