diff options
| author | Richard M. Stallman | 1994-08-11 02:42:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-08-11 02:42:22 +0000 |
| commit | 080d320dce20fc45431958339526c4a8d9b7e5cb (patch) | |
| tree | 78c45907f6315ce68293f78384696ec41908376e | |
| parent | 9d591df883d4dd3c7204c96866b45708d4f84107 (diff) | |
| download | emacs-080d320dce20fc45431958339526c4a8d9b7e5cb.tar.gz emacs-080d320dce20fc45431958339526c4a8d9b7e5cb.zip | |
(show-paren-command-hook): Cope if matching-paren gives nil.
| -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 |