# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1031613409 0
# Node ID 97c0efea1010bc2ad78cc818ff618b31f5449d50
# Parent  c4da69acaa79ed259e9e2f463c789fb63cb781cc
(show-paren-function): Use syntax-after.

diff -r c4da69acaa79 -r 97c0efea1010 lisp/paren.el
--- a/lisp/paren.el	Mon Sep 09 23:14:13 2002 +0000
+++ b/lisp/paren.el	Mon Sep 09 23:16:49 2002 +0000
@@ -135,11 +135,10 @@
 ;; and show it until input arrives.
 (defun show-paren-function ()
   (if show-paren-mode
-      (let (pos dir mismatch face (oldpos (point)))
-	(cond ((eq (char-syntax (preceding-char)) ?\))
-	       (setq dir -1))
-	      ((eq (char-syntax (following-char)) ?\()
-	       (setq dir 1)))
+      (let ((oldpos (point))
+	    (dir (cond ((eq (car (syntax-after (1- (point)))) 5) -1)
+		       ((eq (car (syntax-after (point))) 4) 1)))
+	    pos mismatch face)
 	;;
 	;; Find the other end of the sexp.
 	(when dir