/[emacs]/emacs/lisp/paren.el
ViewVC logotype

Diff of /emacs/lisp/paren.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.57 by rms, Mon Nov 8 16:45:17 2004 UTC revision 1.58 by monnier, Mon Nov 22 06:00:51 2004 UTC
# Line 1  Line 1 
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
# 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)))) ?\)) -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.
# Line 246  in `show-paren-style' after `show-paren- Line 246  in `show-paren-style' after `show-paren-
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

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26