From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Richard Stallman <rms@gnu.org>
Newsgroups: gmane.emacs.devel
Subject: Re: regexp case sensitivity bug
Date: Tue, 10 Dec 2002 16:30:32 -0500
Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org
Message-ID: <E18LrxY-0000HW-00@fencepost.gnu.org>
References: <3DF3B4D0.D4628D27@cs.unc.edu>
	<5xptsad7mq.fsf@kfs2.cua.dk>
Reply-To: rms@gnu.org
NNTP-Posting-Host: main.gmane.org
X-Trace: main.gmane.org 1039556305 30293 80.91.224.249 (10 Dec 2002 21:38:25 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Tue, 10 Dec 2002 21:38:25 +0000 (UTC)
Cc: emacs-devel@gnu.org
Return-path: <emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org>
Original-Received: from quimby.gnus.org ([80.91.224.244])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 18Ls58-0007sH-00
	for <emacs-devel@main.gmane.org>; Tue, 10 Dec 2002 22:38:22 +0100
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian))
	id 18LsFs-0004dR-00
	for <emacs-devel@quimby.gnus.org>; Tue, 10 Dec 2002 22:49:28 +0100
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 18Ls0F-0007XV-06
	for emacs-devel@quimby.gnus.org; Tue, 10 Dec 2002 16:33:19 -0500
Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10.13)
	id 18Lrzx-0007X7-00
	for emacs-devel@gnu.org; Tue, 10 Dec 2002 16:33:01 -0500
Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10.13)
	id 18Lrzu-0007Wj-00
	for emacs-devel@gnu.org; Tue, 10 Dec 2002 16:33:00 -0500
Original-Received: from fencepost.gnu.org ([199.232.76.164])
	by monty-python.gnu.org with esmtp (Exim 4.10.13)
	id 18Lrxg-0007FX-00
	for emacs-devel@gnu.org; Tue, 10 Dec 2002 16:30:40 -0500
Original-Received: from rms by fencepost.gnu.org with local (Exim 4.10)
	id 18LrxY-0000HW-00; Tue, 10 Dec 2002 16:30:32 -0500
Original-To: storm@cua.dk
In-reply-to: <5xptsad7mq.fsf@kfs2.cua.dk> (storm@cua.dk)
Original-cc: heringto@cs.unc.edu
X-BeenThere: emacs-devel@gnu.org
X-Mailman-Version: 2.1b5
Precedence: list
List-Id: Emacs development discussions. <emacs-devel.gnu.org>
List-Help: <mailto:emacs-devel-request@gnu.org?subject=help>
List-Post: <mailto:emacs-devel@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=subscribe>
List-Archive: <http://mail.gnu.org/pipermail/emacs-devel>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=unsubscribe>
Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org
Xref: main.gmane.org gmane.emacs.devel:10044
X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:10044

    Or we can use a completely different approach:

    (defun isearch-no-upper-case-p (string regexp-flag)
      "..."
      (let ((case-fold-search nil))
	(save-match-data
	  (null (string-match 
		  (if regexp-flag "\\(^\\|[^\\]\\)[[:upper:]]" "[[:upper:]]")
		  string)))))

That's not correct in the case where there are two \'s in a row
(or any even number).