show-paren-function () の

(cond ((eq (char-syntax (preceding-char)) ?\))
(setq dir -1))
((eq (char-syntax (following-char)) ?\()
(setq dir 1)))

ここで dir (direction == 方向) を決めて

(setq pos (scan-sexps (point) dir))
ここで釣合いをチェックしています