From 28e271f0369f3848fc64b286a48b1899dbcdfcc8 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 14 Jan 2009 23:10:10 +0000 Subject: [PATCH] (blink-matching-open): Use `minibuffer-message' to display messages in the minibuffer. --- lisp/simple.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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. -- 2.39.2