diff lisp/replace.el @ 375:a300bb07d72d r21-2b3

Import from CVS: tag r21-2b3
author cvs
date Mon, 13 Aug 2007 11:04:51 +0200
parents cc15677e0335
children aabb7f5b1c81
line wrap: on
line diff
--- a/lisp/replace.el	Mon Aug 13 11:04:07 2007 +0200
+++ b/lisp/replace.el	Mon Aug 13 11:04:51 2007 +0200
@@ -628,7 +628,7 @@
 	 ;; XEmacs addition
 	 (qr-case-fold-search
 	  (if (and case-fold-search search-caps-disable-folding)
-	      (isearch-no-upper-case-p search-string)
+	      (no-upper-case-p search-string regexp-flag)
 	    case-fold-search))
 	 (message
 	  (if query-flag