[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: isearch and M-x occur questions(several)
From: |
drf5n |
Subject: |
Re: isearch and M-x occur questions(several) |
Date: |
Sat, 26 Apr 2003 16:02:55 -0400 (EDT) |
On Sat, 26 Apr 2003, Johan [iso-8859-1] Bockg?rd wrote:
> kai.grossjohann@gmx.net (Kai Gro?johann) writes:
...
> 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)
I like it too. I didn't know of occur. Thanks!
Dave
--
Dave Forrest (434)924-3954w(111B) (804)642-0662h (804)695-2026p
drf5n@virginia.edu http://mug.sys.virginia.edu/~drf5n/