diff options
| -rw-r--r-- | lisp/paren.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/paren.el b/lisp/paren.el index c1237f9733e..758ac66c124 100644 --- a/lisp/paren.el +++ b/lisp/paren.el | |||
| @@ -71,8 +71,9 @@ | |||
| 71 | (let ((beg (min pos oldpos)) (end (max pos oldpos))) | 71 | (let ((beg (min pos oldpos)) (end (max pos oldpos))) |
| 72 | (and (/= (char-syntax (char-after beg)) ?\$) | 72 | (and (/= (char-syntax (char-after beg)) ?\$) |
| 73 | (setq mismatch | 73 | (setq mismatch |
| 74 | (/= (char-after (1- end)) | 74 | (not (eq (char-after (1- end)) |
| 75 | (matching-paren (char-after beg))))))) | 75 | ;; This can give nil. |
| 76 | (matching-paren (char-after beg)))))))) | ||
| 76 | ;; If they don't properly match, use a different face, | 77 | ;; If they don't properly match, use a different face, |
| 77 | ;; or print a message. | 78 | ;; or print a message. |
| 78 | (if mismatch | 79 | (if mismatch |