Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
58041:78341df33f26 | 58042:286ed823f2b0 |
---|---|
137 ;; Find the place to show, if there is one, | 137 ;; Find the place to show, if there is one, |
138 ;; and show it until input arrives. | 138 ;; and show it until input arrives. |
139 (defun show-paren-function () | 139 (defun show-paren-function () |
140 (if show-paren-mode | 140 (if show-paren-mode |
141 (let ((oldpos (point)) | 141 (let ((oldpos (point)) |
142 (dir (cond ((eq (car (syntax-after (1- (point)))) 5) -1) | 142 (dir (cond ((eq (car (syntax-after (1- (point)))) ?\)) -1) |
143 ((eq (car (syntax-after (point))) 4) 1))) | 143 ((eq (car (syntax-after (point))) ?\() 1))) |
144 pos mismatch face) | 144 pos mismatch face) |
145 ;; | 145 ;; |
146 ;; Find the other end of the sexp. | 146 ;; Find the other end of the sexp. |
147 (when dir | 147 (when dir |
148 (save-excursion | 148 (save-excursion |