Mercurial > emacs
changeset 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 | 2b60f03f682b |
| children | 1b1c8dcb77b9 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
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.