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

1 files changed, 4 insertions, 5 deletions

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