|
From: | Javier Oviedo |
Subject: | Re: isearch and M-x occur questions(several) |
Date: | Mon, 28 Apr 2003 09:51:12 -0400 |
I like that idea quite a bit. I will test it out. Thanks. -- ======= Javier "Johan Bockgård" <bojohan+news@dd.chalmers.se> wrote in message yoijbrytf5j7.fsf@helm.dd.chalmers.se">news:yoijbrytf5j7.fsf@helm.dd.chalmers.se... > 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
[Prev in Thread] | Current Thread | [Next in Thread] |