Mercurial > emacs
diff lisp/simple.el @ 101181:a0e232b151fb
(blink-matching-open): Use `minibuffer-message' to
display messages in the minibuffer.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Wed, 14 Jan 2009 23:10:10 +0000 |
parents | 4efc7ca085ce |
children | 50a9b1249468 |
line wrap: on
line diff
--- 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.