Mercurial > emacs
diff lisp/paren.el @ 58042:286ed823f2b0
(show-paren-function): Change calls to syntax-after
for new way of returning the value.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 08 Nov 2004 16:45:17 +0000 |
parents | 6bce3db285b5 |
children | 28906724d6e3 cb7f41387eb3 |
line wrap: on
line diff
--- 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.