X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Freplace.el;h=dd84f830260596c18c89de4584aea683d5656d0a;hp=b24d1978b7f54043648f66e8e90723768c1ce255;hb=b267e52aa03bee2c488c8a78824d96cf2d9a6ccc;hpb=669565bfdc5d704dfb1d5ac1a0ec01fb3615a1ae

diff --git a/lisp/replace.el b/lisp/replace.el
index b24d197..dd84f83 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -628,7 +628,7 @@ which will run faster and probably do exactly what you want."
 	 ;; 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