diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-22 06:00:51 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-22 06:00:51 +0000 |
| commit | d8ac3d271c6ff4377b597006753df7dc074d1b55 (patch) | |
| tree | 192990e5db8b5c93521ab1a6fd74edd9527b1507 /lisp/paren.el | |
| parent | abe0aa3e2a84edd77b72dac37f9ffae9901a7ae8 (diff) | |
| download | emacs-d8ac3d271c6ff4377b597006753df7dc074d1b55.tar.gz | |
(syntax-after): Undo last change.
Diffstat (limited to 'lisp/paren.el')
| -rw-r--r-- | lisp/paren.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/paren.el b/lisp/paren.el index 10695a41098..e654cc2cc10 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -1,6 +1,6 @@ ;;; paren.el --- highlight matching paren -;; Copyright (C) 1993, 1996, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1996, 2001, 2004 Free Software Foundation, Inc. ;; Author: rms@gnu.org ;; Maintainer: FSF @@ -139,8 +139,8 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time." (defun show-paren-function () (if show-paren-mode (let ((oldpos (point)) - (dir (cond ((eq (car (syntax-after (1- (point)))) ?\)) -1) - ((eq (car (syntax-after (point))) ?\() 1))) + (dir (cond ((eq (car (syntax-after (1- (point)))) 5) -1) + ((eq (car (syntax-after (point))) 4) 1))) pos mismatch face) ;; ;; Find the other end of the sexp. @@ -246,5 +246,5 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time." (provide 'paren) -;;; arch-tag: d0969b88-7ac0-4bd0-bd53-e73b892b86a9 +;; arch-tag: d0969b88-7ac0-4bd0-bd53-e73b892b86a9 ;;; paren.el ends here |