Mercurial > emacs

changeset 8022:fcf805b27bc5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 a4b5e12e299d
children f29df49c6e53
files lisp/paren.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
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