2074 |
(nreverse result) |
(nreverse result) |
2075 |
result)))) |
result)))) |
2076 |
|
|
2077 |
(defun ibuffer-insert-filter-group (name display-name format bmarklist) |
(defun ibuffer-insert-filter-group (name display-name filter-string format bmarklist) |
2078 |
(add-text-properties |
(add-text-properties |
2079 |
(point) |
(point) |
2080 |
(progn |
(progn |
2082 |
(point)) |
(point)) |
2083 |
`(ibuffer-filter-group-name ,name keymap ,ibuffer-mode-filter-group-map |
`(ibuffer-filter-group-name ,name keymap ,ibuffer-mode-filter-group-map |
2084 |
mouse-face highlight |
mouse-face highlight |
2085 |
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 "))) |
2086 |
(insert "\n") |
(insert "\n") |
2087 |
(when bmarklist |
(when bmarklist |
2088 |
(put-text-property |
(put-text-property |
2125 |
(ibuffer-insert-filter-group |
(ibuffer-insert-filter-group |
2126 |
name |
name |
2127 |
(if disabled (concat name " ...") name) |
(if disabled (concat name " ...") name) |
2128 |
|
(if ext-loaded |
2129 |
|
(ibuffer-format-filter-group-data name) |
2130 |
|
"") |
2131 |
--ibuffer-insert-buffers-and-marks-format |
--ibuffer-insert-buffers-and-marks-format |
2132 |
(if disabled |
(if disabled |
2133 |
nil |
nil |