/[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.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.

Legend:
Removed from v.1.54.6.2  
changed lines
  Added in v.1.54.6.3

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