From: Juri Linkov <juri@jurta.org>
Date: Wed, 14 Jan 2009 23:10:10 +0000 (+0000)
Subject: (blink-matching-open): Use `minibuffer-message' to
X-Git-Tag: emacs-pretest-23.0.90~458
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=28e271f0369f3848fc64b286a48b1899dbcdfcc8;p=emacs.git

(blink-matching-open): Use `minibuffer-message' to
display messages in the minibuffer.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index a9f961acce9..3b66fd1b912 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5229,13 +5229,17 @@ it skips the contents of comments that end before point."
                  ;; 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.