From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 9 Sep 2002 23:16:49 +0000 (+0000)
Subject: (show-paren-function): Use syntax-after.
X-Git-Tag: ttn-vms-21-2-B4~13280
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9fe9d55a2cbb9de7b4a0a995392dd527f2e74dfb;p=emacs.git

(show-paren-function): Use syntax-after.
---

diff --git a/lisp/paren.el b/lisp/paren.el
index 000854a01d2..bb574f7aec2 100644
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -135,11 +135,10 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time."
 ;; 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