Mercurial > emacs
changeset 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 | 78341df33f26 |
| children | fcf98b0adadc |
| files | lisp/paren.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
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.