135 |
;; and show it until input arrives. |
;; and show it until input arrives. |
136 |
(defun show-paren-function () |
(defun show-paren-function () |
137 |
(if show-paren-mode |
(if show-paren-mode |
138 |
(let (pos dir mismatch face (oldpos (point))) |
(let ((oldpos (point)) |
139 |
(cond ((eq (char-syntax (preceding-char)) ?\)) |
(dir (cond ((eq (car (syntax-after (1- (point)))) 5) -1) |
140 |
(setq dir -1)) |
((eq (car (syntax-after (point))) 4) 1))) |
141 |
((eq (char-syntax (following-char)) ?\() |
pos mismatch face) |
|
(setq dir 1))) |
|
142 |
;; |
;; |
143 |
;; Find the other end of the sexp. |
;; Find the other end of the sexp. |
144 |
(when dir |
(when dir |