# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 745223569 0
# Node ID 32cc537f0180969df975337be22cdc5cae35dd3b
# Parent  a4d11a20b724296d2a3f9956829bea5bb6b8cda8
(isearch-edit-string): Use read-event, not read-char.

diff -r a4d11a20b724 -r 32cc537f0180 lisp/isearch.el
--- a/lisp/isearch.el	Fri Aug 13 06:19:21 1993 +0000
+++ b/lisp/isearch.el	Fri Aug 13 06:32:49 1993 +0000
@@ -4,7 +4,7 @@
 
 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
 
-;; |$Date: 1993/07/31 18:39:09 $|$Revision: 1.47 $
+;; |$Date: 1993/08/10 04:14:17 $|$Revision: 1.48 $
 
 ;; This file is not yet part of GNU Emacs, but it is based almost
 ;; entirely on isearch.el which is part of GNU Emacs.
@@ -717,8 +717,7 @@
 	    (let* (;; Why does following read-char echo?  
 		   ;;(echo-keystrokes 0) ;; not needed with above message
 		   (e (let ((cursor-in-echo-area t))
-			(if isearch-event-data-type
-			    (allocate-event) (read-char))))
+			(read-event)))
 		   ;; Binding minibuffer-history-symbol to nil is a work-around
 		   ;; for some incompatibility with gmhist.
 		   (minibuffer-history-symbol))
@@ -730,12 +729,7 @@
 	      ;; no check is made here.
 	      (message (isearch-message-prefix nil nil t))
 	      (if (eq 'isearch-yank-word
-		      (lookup-key
-		       isearch-mode-map
-		       (char-to-string
-			(if isearch-event-data-type
-			    (or (event-to-character (next-command-event e)) 0)
-			  e))))
+		      (lookup-key isearch-mode-map (vector e)))
 		  (setq isearch-word t  ;; so message-prefix is right
 			isearch-new-word t)
 		(isearch-unread e))