From cde4c890f1394a839a1e7ea3d71ac88e1d13071a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 23 Jun 1994 14:42:48 +0000 Subject: [PATCH] (show-paren-command-hook): Handle close paren rather than open paren if point is between the two. --- lisp/paren.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/paren.el b/lisp/paren.el index 74258124be8..7ed85b56dfe 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -48,10 +48,10 @@ (if (and window-system (not executing-kbd-macro) (sit-for 0)) (let (pos dir mismatch (oldpos (point)) (face show-paren-face)) - (cond ((eq (char-syntax (following-char)) ?\() - (setq dir 1)) - ((eq (char-syntax (preceding-char)) ?\)) - (setq dir -1))) + (cond ((eq (char-syntax (preceding-char)) ?\)) + (setq dir -1)) + ((eq (char-syntax (following-char)) ?\() + (setq dir 1))) (if dir (save-excursion (save-restriction -- 2.39.5