diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2019-05-18 14:37:51 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2019-06-04 08:42:50 -0400 |
| commit | d414c93b062cc3e245a6db0cb764d354d037bd42 (patch) | |
| tree | e594558391e8a55800012b8d9642e322685ff355 /test/lisp | |
| parent | e04f93e18a8083d3a4930decc523c4f5d9a97c9e (diff) | |
| download | emacs-d414c93b062cc3e245a6db0cb764d354d037bd42.tar.gz emacs-d414c93b062cc3e245a6db0cb764d354d037bd42.tar.bz2 emacs-d414c93b062cc3e245a6db0cb764d354d037bd42.zip | |
Don't sgml-syntax-propertize-inside XML prolog (Bug#32823)
* lisp/nxml/nxml-mode.el (nxml-syntax-propertize): New function.
(nxml-mode): Use it as the syntax-propertize-function.
* test/lisp/nxml/nxml-mode-tests.el (nxml-mode-doctype-and-quote-syntax)
(nxml-mode-prolog-comment): New tests.
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/nxml/nxml-mode-tests.el | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/test/lisp/nxml/nxml-mode-tests.el b/test/lisp/nxml/nxml-mode-tests.el index 92744be619d..70816bb9de0 100644 --- a/test/lisp/nxml/nxml-mode-tests.el +++ b/test/lisp/nxml/nxml-mode-tests.el @@ -78,5 +78,26 @@ (should-not (equal (get-text-property squote-txt-pos 'face) (get-text-property dquote-att-pos 'face)))))) +(ert-deftest nxml-mode-doctype-and-quote-syntax () + (with-temp-buffer + (insert "<!DOCTYPE t [\n<!ENTITY f SYSTEM \"f.xml\">\n]>\n<t>'</t>") + (nxml-mode) + ;; Check that last tag is parsed as a tag. + (should (= 1 (car (syntax-ppss (1- (point-max)))))) + (should (= 0 (car (syntax-ppss (point-max))))))) + +(ert-deftest nxml-mode-prolog-comment () + (with-temp-buffer + (insert "<?xml version=\"1.0\" encoding=\"utf-8\"?><!-- comment1 --> +<t><!-- comment2 --></t><!-- comment3 -->") + (nxml-mode) + ;; Check that all comments are parsed as comments + (goto-char (point-min)) + (search-forward "comment1") + (should (nth 4 (syntax-ppss))) + (search-forward "comment2") + (should (nth 4 (syntax-ppss))) + (search-forward "comment3"))) + (provide 'nxml-mode-tests) ;;; nxml-mode-tests.el ends here |