# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1231974610 0
# Node ID a0e232b151fb3dfdf97753111a5f52793d95f3b0
# Parent  2b60f03f682bd64ba8e4e80af0d0eff2ca029d59
(blink-matching-open): Use `minibuffer-message' to
display messages in the minibuffer.

diff -r 2b60f03f682b -r a0e232b151fb lisp/simple.el
--- a/lisp/simple.el	Wed Jan 14 23:09:45 2009 +0000
+++ b/lisp/simple.el	Wed Jan 14 23:10:10 2009 +0000
@@ -5229,13 +5229,17 @@
                  ;; a matching-char info, in which case the two CDRs
                  ;; should match.
                  (eq matching-paren (cdr (syntax-after (1- oldpos))))))
-        (message "Mismatched parentheses"))
+	(if (minibufferp)
+	    (minibuffer-message " [Mismatched parentheses]")
+	  (message "Mismatched parentheses")))
        ((not blinkpos)
         (or blink-matching-paren-distance
             ;; Don't complain when `$' with no blinkpos, because it
             ;; could just be the first one typed in the buffer.
             atdollar
-            (message "Unmatched parenthesis")))
+            (if (minibufferp)
+		(minibuffer-message " [Unmatched parenthesis]")
+	      (message "Unmatched parenthesis"))))
        ((pos-visible-in-window-p blinkpos)
         ;; Matching open within window, temporarily move to blinkpos but only
         ;; if `blink-matching-paren-on-screen' is non-nil.