# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1169040047 0
# Node ID 38cd68f9ba51bd4cf38c2c4df5c7a9a76e630dd9
# Parent  d33684b72b598398f7d330b9fcbfe6ae7230177c
(isearch-no-upper-case-p): Look for [:upper:] as well.

diff -r d33684b72b59 -r 38cd68f9ba51 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jan 17 09:28:01 2007 +0000
+++ b/lisp/ChangeLog	Wed Jan 17 13:20:47 2007 +0000
@@ -1,3 +1,7 @@
+2007-01-17  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* isearch.el (isearch-no-upper-case-p): Look for [:upper:] as well.
+
 2007-01-16  martin rudalics  <rudalics@gmx.at>
 
 	* textmodes/ispell.el (ispell-dictionary-alist-3): Replace "---"
diff -r d33684b72b59 -r 38cd68f9ba51 lisp/isearch.el
--- a/lisp/isearch.el	Wed Jan 17 09:28:01 2007 +0000
+++ b/lisp/isearch.el	Wed Jan 17 13:20:47 2007 +0000
@@ -1,7 +1,7 @@
 ;;; isearch.el --- incremental search minor mode
 
 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1999, 2000,
-;;   2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
+;;   2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
 
 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
 ;; Maintainer: FSF
@@ -2235,7 +2235,18 @@
 	      (setq found t))
 	  (setq quote-flag nil)))
       (setq i (1+ i)))
-    (not found)))
+    (not (or found
+             ;; Even if there's no uppercase char, we want to detect the use
+             ;; of [:upper:] or [:lower:] char-class, which indicates
+             ;; clearly that the user cares about case distinction.
+             (and regexp-flag (string-match "\\[:\\(upp\\|low\\)er:]" string)
+                  (condition-case err
+                      (progn
+                        (string-match (substring string 0 (match-beginning 0))
+                                      "")
+                        nil)
+                    (invalid-regexp
+                     (equal "Unmatched [ or [^" (cadr err)))))))))
 
 ;; Portability functions to support various Emacs versions.