(show-paren-command-hook): Handle close paren rather than open paren

if point is between the two.

diff --git a/lisp/paren.el b/lisp/paren.el
index 74258124be8dcc41a64369cab974d7950f4f740e..7ed85b56dfe76ea1cc12abaad1637fe225b43256 100644 (file)
--- 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