help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Johan Bockgård
Subject: Re: isearch and M-x occur questions(several)
Date: Sat, 26 Apr 2003 21:00:12 +0200
User-agent: Gnus/5.090018 (Oort Gnus v0.18) Emacs/21.2 (usg-unix-v)

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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]