# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738656867 0
# Node ID 9691f6951ee4608421a4d3ce5b98e4f3ed25f1d2
# Parent  b47c0a6be84bd70519c2550d8111e079b872441e
(isearch-search): Take note of isearch-case-fold-search initial value.

diff -r b47c0a6be84b -r 9691f6951ee4 lisp/isearch.el
--- a/lisp/isearch.el	Sat May 29 06:25:30 1993 +0000
+++ b/lisp/isearch.el	Sat May 29 06:27:47 1993 +0000
@@ -4,7 +4,7 @@
 
 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
 
-;; |$Date: 1993/05/19 04:44:42 $|$Revision: 1.36 $
+;; |$Date: 1993/05/27 03:33:12 $|$Revision: 1.37 $
 
 ;; This file is not yet part of GNU Emacs, but it is based almost
 ;; entirely on isearch.el which is part of GNU Emacs.
@@ -1269,7 +1269,7 @@
 (defun isearch-search ()
   ;; Do the search with the current search string.
   (isearch-message nil t)
-  (if search-upper-case
+  (if (and isearch-case-fold-search search-upper-case)
       (setq isearch-case-fold-search (isearch-no-upper-case-p isearch-string)))
   (condition-case lossage
       (let ((inhibit-quit nil)