From 235beb3226d2ef5cbac2ae3bcbea96937c488368 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 13 Aug 1993 06:32:49 +0000 Subject: [PATCH] (isearch-edit-string): Use read-event, not read-char. --- lisp/isearch.el | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index 1def08ace63..60ab8ed00db 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte -;; |$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 @@ If first char entered is \\[isearch-yank-word], then do word search instead." (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 @@ If first char entered is \\[isearch-yank-word], then do word search instead." ;; 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)) -- 2.39.5