# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 720159106 0
# Node ID d0d11fa0ecf57ce0d637ad8f3f94d6bb757afa75
# Parent  09448393e8320b51d805adfb0c11e7d2ce2e8682
(isearch-edit-string):
Bind cursor-in-echo-area only around read-char/allocate-event.

diff -r 09448393e832 -r d0d11fa0ecf5 lisp/isearch.el
--- a/lisp/isearch.el	Tue Oct 27 00:55:32 1992 +0000
+++ b/lisp/isearch.el	Tue Oct 27 04:11:46 1992 +0000
@@ -4,7 +4,7 @@
 ;; LCD Archive Entry:
 ;; isearch-mode|Daniel LaLiberte|liberte@cs.uiuc.edu
 ;; |A minor mode replacement for isearch.el.
-;; |$Date: 1992/10/11 05:25:11 $|$Revision: 1.11 $|~/modes/isearch-mode.el
+;; |$Date: 1992/10/20 21:21:47 $|$Revision: 1.12 $|~/modes/isearch-mode.el
 
 ;; This file is not yet part of GNU Emacs, but it is based almost
 ;; entirely on isearch.el which is part of GNU Emacs.
@@ -88,8 +88,12 @@
 ;;;====================================================================
 ;;; Change History
 
-;;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/isearch-mode.el,v 1.11 1992/10/11 05:25:11 rms Exp rms $
+;;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/isearch-mode.el,v 1.12 1992/10/20 21:21:47 rms Exp rms $
 ;;; $Log: isearch-mode.el,v $
+; Revision 1.12  1992/10/20  21:21:47  rms
+; (isearch-mode-map): Make the top-level keymap dense.
+; Explicitly bind control characters at that level.
+;
 ; Revision 1.11  1992/10/11  05:25:11  rms
 ; (isearch-ring-advance-edit): Delete spurious `)'.
 ;
@@ -704,8 +708,9 @@
 	(unwind-protect
 	    (let* (;; Why does following read-char echo?  
 		   ;;(echo-keystrokes 0) ;; not needed with above message
-		   (cursor-in-echo-area t)
-		   (e (if isearch-event-data-type (allocate-event) (read-char)))
+		   (e (let ((cursor-in-echo-area t))
+			(if isearch-event-data-type
+			    (allocate-event) (read-char))))
 		   ;; Binding minibuffer-history-symbol to nil is a work-around
 		   ;; for some incompatibility with gmhist.
 		   (minibuffer-history-symbol))