Re-enable parenthesis matching in typein window. Change "off-window"

matching message to be prefixed by "Matching ".

diff --git a/v7/src/edwin/simple.scm b/v7/src/edwin/simple.scm
index 101acbdfe8f9a7b941f44f8e601787dfb7bd2e24..6d3ab64773f8dda0e4785002515b2275f1cc45ef 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.33 1991/03/28 00:17:40 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/simple.scm,v 1.34 1991/04/11 03:04:45 cph Exp $
 ;;;
 ;;;    Copyright (c) 1985, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -209,8 +209,9 @@
             (with-current-point mark
               (lambda ()
                 (sit-for 500)))))
-       ((not (typein-window? (current-window)))
+       (else
         (temporary-message
+         "Matches "
          (let ((start (line-start mark 0))
                (end (line-end mark 0)))
            (case (and (not (default-object? type)) type)