aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-06-23 14:42:48 +0000
committerRichard M. Stallman1994-06-23 14:42:48 +0000
commitcde4c890f1394a839a1e7ea3d71ac88e1d13071a (patch)
tree169ed69f2fce87214eb98d9952674f6fce17e643
parentfc60327e4e38837b9a8f625e1a199fff1f0f5b80 (diff)
downloademacs-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.el8
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