# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1127693023 0
# Node ID c2427cf9fc77dd569997fb1a985fcb8cf9240097
# Parent  b89731597db3c21e3c1e8ddfab8219d0cab10892
(blink-matching-open): Don't no-op when point is BEGV+1.

diff -r b89731597db3 -r c2427cf9fc77 lisp/simple.el
--- a/lisp/simple.el	Mon Sep 26 00:02:37 2005 +0000
+++ b/lisp/simple.el	Mon Sep 26 00:03:43 2005 +0000
@@ -4236,7 +4236,7 @@
 (defun blink-matching-open ()
   "Move cursor momentarily to the beginning of the sexp before point."
   (interactive)
-  (when (and (> (point) (1+ (point-min)))
+  (when (and (> (point) (point-min))
 	     blink-matching-paren
 	     ;; Verify an even number of quoting characters precede the close.
 	     (= 1 (logand 1 (- (point)