(blink-matching-open): Use `minibuffer-message' to

display messages in the minibuffer.

diff --git a/lisp/simple.el b/lisp/simple.el
index a9f961acce9dcda370a94136fbf3bb0397e6c459..3b66fd1b9126e7398511c397db96df9f7ad707a2 100644 (file)
--- 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.