diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-06-23 14:42:48 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-06-23 14:42:48 +0000 |
commit | f123dcf4061b4e99a32f3c489bb9f427c32e6755 (patch) | |
tree | f52f90bbe0e6c1a63fb1110a23c295d871ddd94e /lisp/paren.el | |
parent | 361f3533934fa3576b94b96f6c0139a5aa79edbd (diff) | |
download | emacs-f123dcf4061b4e99a32f3c489bb9f427c32e6755.tar.gz |
(show-paren-command-hook): Handle close paren rather than open paren
if point is between the two.
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 74258124be8..7ed85b56dfe 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -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 |