/[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.58 by monnier, Mon Nov 22 06:00:51 2004 UTC revision 1.59 by rms, Fri Dec 3 00:06:21 2004 UTC
# Line 171  in `show-paren-style' after `show-paren- Line 171  in `show-paren-style' after `show-paren-
171                  (let ((beg (min pos oldpos)) (end (max pos oldpos)))                  (let ((beg (min pos oldpos)) (end (max pos oldpos)))
172                    (when (/= (char-syntax (char-after beg)) ?\$)                    (when (/= (char-syntax (char-after beg)) ?\$)
173                      (setq mismatch                      (setq mismatch
174                            (not (eq (char-before end)                            (not (eq (or (cdr (get-text-property (1- end) 'syntax-table))
175                                           (char-before end))
176                                     ;; This can give nil.                                     ;; This can give nil.
177                                     (matching-paren (char-after beg)))))))))))                                     (or (cdr (get-text-property beg 'syntax-table))
178                                           (matching-paren (char-after beg))))))))))))
179          ;;          ;;
180          ;; Highlight the other end of the sexp, or unhighlight if none.          ;; Highlight the other end of the sexp, or unhighlight if none.
181          (if (not pos)          (if (not pos)

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

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