Mercurial > emacs
changeset 45270:087cbd1a5087
(ibuffer-insert-filter-group): New argument filter-string.
(ibuffer-redisplay-engine): Handle it.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Mon, 13 May 2002 06:00:06 +0000 |
| parents | 9f06588d9f44 |
| children | bab60576e8ec |
| files | lisp/ibuffer.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ibuffer.el Mon May 13 05:59:48 2002 +0000 +++ b/lisp/ibuffer.el Mon May 13 06:00:06 2002 +0000 @@ -2074,7 +2074,7 @@ (nreverse result) result)))) -(defun ibuffer-insert-filter-group (name display-name format bmarklist) +(defun ibuffer-insert-filter-group (name display-name filter-string format bmarklist) (add-text-properties (point) (progn @@ -2082,7 +2082,7 @@ (point)) `(ibuffer-filter-group-name ,name keymap ,ibuffer-mode-filter-group-map mouse-face highlight - help-echo "mouse-1: toggle marks in this group\nmouse-2: hide/show this filtering group ")) + help-echo ,(concat filter-string "mouse-1: toggle marks in this group\nmouse-2: hide/show this filtering group "))) (insert "\n") (when bmarklist (put-text-property @@ -2125,6 +2125,9 @@ (ibuffer-insert-filter-group name (if disabled (concat name " ...") name) + (if ext-loaded + (ibuffer-format-filter-group-data name) + "") --ibuffer-insert-buffers-and-marks-format (if disabled nil