changeset 4869:a3a72fce1143

(blink-matching-open): Treat / syntax like \ syntax.
author Richard M. Stallman <rms@gnu.org>
date Thu, 21 Oct 1993 21:25:05 +0000
parents 6de32c7b6045
children c53deda13fa9
files lisp/simple.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Thu Oct 21 17:56:09 1993 +0000
+++ b/lisp/simple.el	Thu Oct 21 21:25:05 1993 +0000
@@ -2115,7 +2115,7 @@
   "Move cursor momentarily to the beginning of the sexp before point."
   (interactive)
   (and (> (point) (1+ (point-min)))
-       (/= (char-syntax (char-after (- (point) 2))) ?\\ )
+       (not (memq (char-syntax (char-after (- (point) 2))) '(?/ ?\\ )))
        blink-matching-paren
        (let* ((oldpos (point))
 	      (blinkpos)