Re: isearch and M-x occur questions(several)

[Johan Bockgård]

kai.grossjohann@gmx.net (Kai Großjohann) writes:

> Another useful thing might be to bind a key in isearch-mode-map that
> runs occur with the right options.

I like that.

(defun isearch-occur ()
  "Run `occur' with current isearch string."
  (interactive)
  (let ((case-fold-search isearch-case-fold-search)
        (search-string (if isearch-regexp
                           isearch-string
                         (regexp-quote isearch-string))))
    (occur search-string)))

(define-key isearch-mode-map [(control o)] 'isearch-occur)


-- 
Johan Bockgård