# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 783663643 0
# Node ID 61b41f22369504c6a648a8e1550671e8905225bf
# Parent  787ae425ae22167d54eded8f8dc3d0853f48832d
(isearch-edit-string, isearch-toggle-case-fold):
Pass isearch-nonincremental to isearch-message-prefix.

diff -r 787ae425ae22 -r 61b41f223695 lisp/isearch.el
--- a/lisp/isearch.el	Tue Nov 01 02:18:56 1994 +0000
+++ b/lisp/isearch.el	Tue Nov 01 04:20:43 1994 +0000
@@ -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 @@
 	      (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 @@
   (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)