From d45b2d12daa730f28b782d3abbbbe0e8910d33b2 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 28 Apr 1989 03:52:53 +0000
Subject: [PATCH] Always clear the minibuffer message after an incremental
 search.

---
 v7/src/edwin/iserch.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/iserch.scm b/v7/src/edwin/iserch.scm
index 7633d2a62..170a8db4c 100644
--- a/v7/src/edwin/iserch.scm
+++ b/v7/src/edwin/iserch.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/iserch.scm,v 1.4 1989/04/23 23:23:59 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/iserch.scm,v 1.5 1989/04/28 03:52:53 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -51,10 +51,10 @@
 	      (lambda ()
 		(isearch-loop
 		 (initial-search-state false forward? regexp? point))))))
+	(clear-message)
 	(cond ((eq? result 'ABORT)
 	       (set-window-point! window point)
-	       (window-scroll-y-absolute! window y-point)
-	       (clear-message))
+	       (window-scroll-y-absolute! window y-point))
 	      ((command? result)
 	       (dispatch-on-command result))
 	      (else
-- 
2.25.1