From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: bojohan+news@dd.chalmers.se (Johan =?iso-8859-1?q?Bockg=E5rd?=)
Newsgroups: gmane.emacs.help
Subject: Re: isearch and  M-x occur questions(several)
Date: Sat, 26 Apr 2003 21:00:12 +0200
Organization: Chalmers University of Technology, Sweden
Sender: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org
Message-ID: <yoijbrytf5j7.fsf@helm.dd.chalmers.se>
References: <b8buaj$ajp$1@tilde.itg.ti.com>
	<84fzo5e42z.fsf@lucy.is.informatik.uni-duisburg.de>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: main.gmane.org 1051384262 19338 80.91.224.249 (26 Apr 2003 19:11:02 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sat, 26 Apr 2003 19:11:02 +0000 (UTC)
Original-X-From: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org Sat Apr 26 21:11:01 2003
Return-path: <help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 199V4P-00051E-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Sat, 26 Apr 2003 21:10:45 +0200
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10.13)
	id 199V4B-0001ZB-05
	for gnu-help-gnu-emacs@m.gmane.org; Sat, 26 Apr 2003 15:10:31 -0400
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!uio.no!news.netg.se!dd.chalmers.se!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 21
Original-NNTP-Posting-Host: helm.dd.chalmers.se
Mail-Copies-To: never
User-Agent: Gnus/5.090018 (Oort Gnus v0.18) Emacs/21.2 (usg-unix-v)
Cancel-Lock: sha1:zU7ugS7xd1+jAkwe7FqJXZJbocE=
Original-Xref: shelby.stanford.edu gnu.emacs.help:112378
Original-To: help-gnu-emacs@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1b5
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
Errors-To: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org
Xref: main.gmane.org gmane.emacs.help:8877
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:8877

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