[Emacs-diffs] Changes to emacs/lisp/paren.el

[Stefan Monnier]

Index: emacs/lisp/paren.el
diff -c emacs/lisp/paren.el:1.51 emacs/lisp/paren.el:1.52
*** emacs/lisp/paren.el:1.51    Mon Mar 11 04:14:28 2002
--- emacs/lisp/paren.el Mon Sep  9 19:16:49 2002
***************
*** 135,145 ****
  ;; and show it until input arrives.
  (defun show-paren-function ()
    (if show-paren-mode
!       (let (pos dir mismatch face (oldpos (point)))
!       (cond ((eq (char-syntax (preceding-char)) ?\))
!              (setq dir -1))
!             ((eq (char-syntax (following-char)) ?\()
!              (setq dir 1)))
        ;;
        ;; Find the other end of the sexp.
        (when dir
--- 135,144 ----
  ;; and show it until input arrives.
  (defun show-paren-function ()
    (if show-paren-mode
!       (let ((oldpos (point))
!           (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.
        (when dir