(

add-hook

'occur-mode-hook

(

defun

isearch-occur-setup+

()

(

add-function

:after-while

(

local

'isearch-filter-predicate

)

'occur-isearch-filter-p+

)))

(

defun

occur-isearch-filter-p+

(

beg

end

)

"Return non-nil if match should be considered."

(

and

(

save-excursion

;; always omit first line wich contains summary info and in multi-occur it

;; has no occur-title property and isn't read only

(

goto-char

beg

)

(

not

(

=

(

point-min

)

(

line-beginning-position

))))

;; omit the other occur header lines

(

not

(

or

(

get-text-property

beg

'occur-title

)

(

get-text-property

end

'occur-title

)))))