# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 905700183 0
# Node ID f19f44b54f00cd9317414306b411556e5b7868b4
# Parent  ec2d671b77baa4e9701426edc1ed0c3d462c0453
(blink-matching-open): Don't log paren matching
messages in *Messages*.

diff -r ec2d671b77ba -r f19f44b54f00 lisp/simple.el
--- a/lisp/simple.el	Sun Sep 13 03:58:36 1998 +0000
+++ b/lisp/simple.el	Sun Sep 13 15:23:03 1998 +0000
@@ -3322,7 +3322,8 @@
 			      (matching-paren (char-after blinkpos))))))
 	   (if mismatch (setq blinkpos nil))
 	   (if blinkpos
-	       (progn
+	       ;; Don't log messages about paren matching.
+	       (let (message-log-max)
 		(goto-char blinkpos)
 		(if (pos-visible-in-window-p)
 		    (and blink-matching-paren-on-screen