[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp simple.el
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] emacs/lisp simple.el |
Date: |
Wed, 14 Jan 2009 23:10:13 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Juri Linkov <jurta> 09/01/14 23:10:13
Modified files:
lisp : simple.el
Log message:
(blink-matching-open): Use `minibuffer-message' to
display messages in the minibuffer.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/simple.el?cvsroot=emacs&r1=1.966&r2=1.967
Patches:
Index: simple.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/simple.el,v
retrieving revision 1.966
retrieving revision 1.967
diff -u -b -r1.966 -r1.967
--- simple.el 9 Jan 2009 04:44:21 -0000 1.966
+++ simple.el 14 Jan 2009 23:10:10 -0000 1.967
@@ -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.