4236 |
(defun blink-matching-open () |
(defun blink-matching-open () |
4237 |
"Move cursor momentarily to the beginning of the sexp before point." |
"Move cursor momentarily to the beginning of the sexp before point." |
4238 |
(interactive) |
(interactive) |
4239 |
(when (and (> (point) (1+ (point-min))) |
(when (and (> (point) (point-min)) |
4240 |
blink-matching-paren |
blink-matching-paren |
4241 |
;; Verify an even number of quoting characters precede the close. |
;; Verify an even number of quoting characters precede the close. |
4242 |
(= 1 (logand 1 (- (point) |
(= 1 (logand 1 (- (point) |