From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 8 Nov 2004 16:45:17 +0000 (+0000)
Subject: (show-paren-function): Change calls to syntax-after
X-Git-Tag: ttn-vms-21-2-B4~4100
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5d126ea02041a77bbe2012b0c82a38960ce7d5c;p=emacs.git

(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 6c5f9dece99..10695a41098 100644
--- 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.