From d5d126ea02041a77bbe2012b0c82a38960ce7d5c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 8 Nov 2004 16:45:17 +0000 Subject: [PATCH] (show-paren-function): Change calls to syntax-after for new way of returning the value. --- lisp/paren.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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. -- 2.39.2