Re: blink-matching-open and beginning-of-defun.

[Richard M. Stallman]

      Secondly, isn't an expected behavior that

      ``) C-a (''

      makes opening parenthesis  blink together with its closing  one ?

No, it only blinks the matching open, only when you insert a close.

      Yes, it  does the  trick for opening  parenthesis, but  another bug,
      which  I'm  pretty  sure  comes from  blink-matching-open,  is  that
      a  closing parenthesis  in the  first  character of  a buffer  isn't
      warned.

With this change, does it work right?

*** simple.el   18 Sep 2005 09:53:39 -0400      1.751
--- simple.el   24 Sep 2005 18:53:02 -0400      
***************
*** 4236,4242 ****
  (defun blink-matching-open ()
    "Move cursor momentarily to the beginning of the sexp before point."
    (interactive)
!   (when (and (> (point) (1+ (point-min)))
             blink-matching-paren
             ;; Verify an even number of quoting characters precede the close.
             (= 1 (logand 1 (- (point)
--- 4236,4242 ----
  (defun blink-matching-open ()
    "Move cursor momentarily to the beginning of the sexp before point."
    (interactive)
!   (when (and (> (point) (point-min))
             blink-matching-paren
             ;; Verify an even number of quoting characters precede the close.
             (= 1 (logand 1 (- (point)