/[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.51 by rms, Mon Mar 11 09:14:28 2002 UTC revision 1.52 by monnier, Mon Sep 9 23:16:49 2002 UTC
# Line 135  in `show-paren-style' after `show-paren- Line 135  in `show-paren-style' after `show-paren-
135  ;; and show it until input arrives.  ;; and show it until input arrives.
136  (defun show-paren-function ()  (defun show-paren-function ()
137    (if show-paren-mode    (if show-paren-mode
138        (let (pos dir mismatch face (oldpos (point)))        (let ((oldpos (point))
139          (cond ((eq (char-syntax (preceding-char)) ?\))              (dir (cond ((eq (car (syntax-after (1- (point)))) 5) -1)
140                 (setq dir -1))                         ((eq (car (syntax-after (point))) 4) 1)))
141                ((eq (char-syntax (following-char)) ?\()              pos mismatch face)
                (setq dir 1)))  
142          ;;          ;;
143          ;; Find the other end of the sexp.          ;; Find the other end of the sexp.
144          (when dir          (when dir

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

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