(show-paren-function): Change calls to syntax-after

for new way of returning the value.

diff --git a/lisp/paren.el b/lisp/paren.el
index 6c5f9dece99a6a37c0b2746046dae9ed801b8310..10695a4109888036cbc026c2538508a36ff5a6a1 100644 (file)
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -139,8 +139,8 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time."
 (defun show-paren-function ()
   (if show-paren-mode
       (let ((oldpos (point))
-           (dir (cond ((eq (car (syntax-after (1- (point)))) 5) -1)
-                      ((eq (car (syntax-after (point))) 4) 1)))
+           (dir (cond ((eq (car (syntax-after (1- (point)))) ?\)) -1)
+                      ((eq (car (syntax-after (point))) ?\() 1)))
            pos mismatch face)
        ;;
        ;; Find the other end of the sexp.