Re: occur patch

[Geoff Gole]

I agree that this is useful, I have something like this in my .emacs.

A minor problem with the patch is that the result of current-word is
used unquoted. Depending on whether people expect more restrictive or
more permissive searching, it may also be desirable to add
beginning/end of symbol:

    (let ((word (current-word)))
      (when word
        (concat "\\_<" (regexp-quote word) "\\_>")))