Invoke occur from isearch?

[Kai Großjohann]

Maybe it would be useful to get a list of occurrences of the current
isearch string?  This was discussed on gnu.emacs.help.  Johan
Bockgård suggested an implementation.  I shortened it and now I have
the following:

(defun isearch-occur ()
  "Invoke `occur' from within isearch."
  (interactive)
  (let ((case-fold-search isearch-case-fold-search))
    (occur (if isearch-regexp isearch-string (regexp-quote isearch-string)))))
(define-key isearch-mode-map (kbd "C-o") 'isearch-occur)

What do people think?
-- 
file-error; Data: (Opening input file no such file or directory ~/.signature)