Mercurial > emacs
diff lisp/paren.el @ 8022:fcf805b27bc5
(show-paren-command-hook): Handle close paren rather than open paren
if point is between the two.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 23 Jun 1994 14:42:48 +0000 |
parents | cbab396695ab |
children | bef2c11470f8 |
line wrap: on
line diff
--- a/lisp/paren.el Thu Jun 23 14:34:50 1994 +0000 +++ b/lisp/paren.el Thu Jun 23 14:42:48 1994 +0000 @@ -48,10 +48,10 @@ (if (and window-system (not executing-kbd-macro) (sit-for 0)) (let (pos dir mismatch (oldpos (point)) (face show-paren-face)) - (cond ((eq (char-syntax (following-char)) ?\() - (setq dir 1)) - ((eq (char-syntax (preceding-char)) ?\)) - (setq dir -1))) + (cond ((eq (char-syntax (preceding-char)) ?\)) + (setq dir -1)) + ((eq (char-syntax (following-char)) ?\() + (setq dir 1))) (if dir (save-excursion (save-restriction