From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 8 Sep 2010 16:14:44 +0000 (+0200)
Subject: * lisp/simple.el (blink-matching-open): Don't burp if we can't find a match.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~48^2~36
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c34a966941056e0f55f59cb453d31ef0870c3a58;p=emacs.git

* lisp/simple.el (blink-matching-open): Don't burp if we can't find a match.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 683c6e6b688..e445641a33c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-09-08  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* simple.el (blink-matching-open): Don't burp if we can't find a match.
+
 2010-09-08  Glenn Morris  <rgm@gnu.org>
 
 	* emacs-lisp/bytecomp.el (byte-compile-report-ops):
diff --git a/lisp/simple.el b/lisp/simple.el
index 18b2c3a300a..36931c7777c 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5541,6 +5541,7 @@ The function should return non-nil if the two tokens do not match.")
           (if (minibufferp)
               (minibuffer-message " [Unmatched parenthesis]")
             (message "Unmatched parenthesis"))))
+       ((not blinkpos) nil)
        ((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.