# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 772382568 0
# Node ID fcf805b27bc570bb0cd2ac91dc95185c69f6ee61
# Parent  a4b5e12e299db555a5e19216cd042aa6c2819ec4
(show-paren-command-hook): Handle close paren rather than open paren
if point is between the two.

diff -r a4b5e12e299d -r fcf805b27bc5 lisp/paren.el
--- a/lisp/paren.el	Thu Jun 23 14:34:50 1994 +0000
+++ b/lisp/paren.el	Thu Jun 23 14:42:48 1994 +0000
@@ -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