diff options
| author | Tom Tromey | 2017-10-29 13:03:51 -0600 |
|---|---|---|
| committer | Tom Tromey | 2017-10-29 13:03:51 -0600 |
| commit | 056587c45fd964c0367e970c52914260977f889d (patch) | |
| tree | 3b727e30e78bd829a06518ad4dc7c1761bda2a42 | |
| parent | 4c4ad8084872937776783bc1e59908114ec8f44c (diff) | |
| download | emacs-056587c45fd964c0367e970c52914260977f889d.tar.gz emacs-056587c45fd964c0367e970c52914260977f889d.zip | |
Extend mhtml submode region when in comment
* lisp/textmodes/mhtml-mode.el (mhtml-syntax-propertize): Extend
submode when start happens to be in a comment.
| -rw-r--r-- | lisp/textmodes/mhtml-mode.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/textmodes/mhtml-mode.el b/lisp/textmodes/mhtml-mode.el index 2c1b26d571c..58541677509 100644 --- a/lisp/textmodes/mhtml-mode.el +++ b/lisp/textmodes/mhtml-mode.el | |||
| @@ -293,9 +293,7 @@ can function properly.") | |||
| 293 | (unless (bobp) | 293 | (unless (bobp) |
| 294 | (let ((submode (get-text-property (1- (point)) 'mhtml-submode))) | 294 | (let ((submode (get-text-property (1- (point)) 'mhtml-submode))) |
| 295 | (if submode | 295 | (if submode |
| 296 | ;; Don't search in a comment or string | 296 | (mhtml--syntax-propertize-submode submode end) |
| 297 | (unless (syntax-ppss-context (syntax-ppss)) | ||
| 298 | (mhtml--syntax-propertize-submode submode end)) | ||
| 299 | ;; No submode, so do what sgml-mode does. | 297 | ;; No submode, so do what sgml-mode does. |
| 300 | (sgml-syntax-propertize-inside end)))) | 298 | (sgml-syntax-propertize-inside end)))) |
| 301 | (funcall | 299 | (funcall |