Don't use temporary messages to flash matching parentheses in the

minibuffer.

diff --git a/v7/src/edwin/simple.scm b/v7/src/edwin/simple.scm
index f1ed46c5f18f54a9656b021cc12d2d9f815fef85..101acbdfe8f9a7b941f44f8e601787dfb7bd2e24 100644 (file)
--- a/v7/src/edwin/simple.scm
+++ b/v7/src/edwin/simple.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/simple.scm,v 1.32 1991/03/22 00:27:48 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/simple.scm,v 1.33 1991/03/28 00:17:40 cph Exp $
 ;;;
 ;;;    Copyright (c) 1985, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -209,7 +209,7 @@
             (with-current-point mark
               (lambda ()
                 (sit-for 500)))))
-       (else
+       ((not (typein-window? (current-window)))
         (temporary-message
          (let ((start (line-start mark 0))
                (end (line-end mark 0)))