diff options
| author | Richard M. Stallman | 1994-06-23 14:42:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-06-23 14:42:48 +0000 |
| commit | cde4c890f1394a839a1e7ea3d71ac88e1d13071a (patch) | |
| tree | 169ed69f2fce87214eb98d9952674f6fce17e643 | |
| parent | fc60327e4e38837b9a8f625e1a199fff1f0f5b80 (diff) | |
| download | emacs-cde4c890f1394a839a1e7ea3d71ac88e1d13071a.tar.gz emacs-cde4c890f1394a839a1e7ea3d71ac88e1d13071a.zip | |
(show-paren-command-hook): Handle close paren rather than open paren
if point is between the two.
| -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 @@ | |||
| 48 | (if (and window-system (not executing-kbd-macro) (sit-for 0)) | 48 | (if (and window-system (not executing-kbd-macro) (sit-for 0)) |
| 49 | (let (pos dir mismatch (oldpos (point)) | 49 | (let (pos dir mismatch (oldpos (point)) |
| 50 | (face show-paren-face)) | 50 | (face show-paren-face)) |
| 51 | (cond ((eq (char-syntax (following-char)) ?\() | 51 | (cond ((eq (char-syntax (preceding-char)) ?\)) |
| 52 | (setq dir 1)) | 52 | (setq dir -1)) |
| 53 | ((eq (char-syntax (preceding-char)) ?\)) | 53 | ((eq (char-syntax (following-char)) ?\() |
| 54 | (setq dir -1))) | 54 | (setq dir 1))) |
| 55 | (if dir | 55 | (if dir |
| 56 | (save-excursion | 56 | (save-excursion |
| 57 | (save-restriction | 57 | (save-restriction |