1 |
;;; paren.el --- highlight matching paren |
;;; paren.el --- highlight matching paren |
2 |
|
|
3 |
;; Copyright (C) 1993, 1996, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1993, 1996, 2001, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: rms@gnu.org |
;; Author: rms@gnu.org |
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
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)))) ?\)) -1) |
(dir (cond ((eq (car (syntax-after (1- (point)))) 5) -1) |
143 |
((eq (car (syntax-after (point))) ?\() 1))) |
((eq (car (syntax-after (point))) 4) 1))) |
144 |
pos mismatch face) |
pos mismatch face) |
145 |
;; |
;; |
146 |
;; Find the other end of the sexp. |
;; Find the other end of the sexp. |
246 |
|
|
247 |
(provide 'paren) |
(provide 'paren) |
248 |
|
|
249 |
;;; arch-tag: d0969b88-7ac0-4bd0-bd53-e73b892b86a9 |
;; arch-tag: d0969b88-7ac0-4bd0-bd53-e73b892b86a9 |
250 |
;;; paren.el ends here |
;;; paren.el ends here |