Parent Directory | Revision Log | Patch
revision 1.54.6.2 by miles, Mon Jun 28 07:28:43 2004 UTC | revision 1.54.6.3 by miles, Fri Nov 12 02:52:53 2004 UTC | |
---|---|---|
# | Line 139 in `show-paren-style' after `show-paren- | Line 139 in `show-paren-style' after `show-paren- |
139 | (defun show-paren-function () | (defun show-paren-function () |
140 | (if show-paren-mode | (if show-paren-mode |
141 | (let ((oldpos (point)) | (let ((oldpos (point)) |
142 | (dir (cond ((eq (car (syntax-after (1- (point)))) 5) -1) | (dir (cond ((eq (car (syntax-after (1- (point)))) ?\)) -1) |
143 | ((eq (car (syntax-after (point))) 4) 1))) | ((eq (car (syntax-after (point))) ?\() 1))) |
144 | pos mismatch face) | pos mismatch face) |
145 | ;; | ;; |
146 | ;; Find the other end of the sexp. | ;; Find the other end of the sexp. |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |