# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1099932317 0
# Node ID 286ed823f2b05baa6bf5fcc74e49b818d2756ffd
# Parent  78341df33f263258f371dbb336ee16abe7983967
(show-paren-function): Change calls to syntax-after
for new way of returning the value.

diff -r 78341df33f26 -r 286ed823f2b0 lisp/paren.el
--- a/lisp/paren.el	Mon Nov 08 16:44:15 2004 +0000
+++ b/lisp/paren.el	Mon Nov 08 16:45:17 2004 +0000
@@ -139,8 +139,8 @@
 (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.