(isearch-edit-string, isearch-toggle-case-fold):

Pass isearch-nonincremental to isearch-message-prefix.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index ddea96cd268c38848be0a8df2f396c9fa1a4fcc8..b9ebd45c8ae527e4bda29c1435fabb0e3a52a82c 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -4,7 +4,7 @@
 
 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
 
-;; |$Date: 1994/08/30 21:20:09 $|$Revision: 1.73 $
+;; |$Date: 1994/09/30 09:16:06 $|$Revision: 1.74 $
 
 ;; This file is part of GNU Emacs.
 
@@ -738,10 +738,11 @@ If first char entered is \\[isearch-yank-word], then do word search instead."
              (setq cursor-in-echo-area nil)
              (setq isearch-new-string
                    (let (junk-ring)
-                     (read-from-minibuffer (isearch-message-prefix)
-                                           isearch-string
-                                           minibuffer-local-isearch-map nil
-                                           'junk-ring))
+                     (read-from-minibuffer
+                      (isearch-message-prefix nil nil isearch-nonincremental)
+                      isearch-string
+                      minibuffer-local-isearch-map nil
+                      'junk-ring))
                    isearch-new-message
                    (mapconcat 'isearch-text-char-description
                               isearch-new-string "")))
@@ -880,7 +881,7 @@ Use `isearch-exit' to quit without signalling."
   (setq isearch-case-fold-search
        (if isearch-case-fold-search nil 'yes))
   (message "%s%s [case %ssensitive]"
-          (isearch-message-prefix)
+          (isearch-message-prefix nil nil isearch-nonincremental)
           isearch-message
           (if isearch-case-fold-search "in" ""))
   (setq isearch-adjusted t)