diff options
| author | Stefan Monnier | 2019-05-15 22:21:36 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2019-05-15 22:21:36 -0400 |
| commit | 9a74e5666b022098c63d0047c0df90c66e1aa64a (patch) | |
| tree | a9d16e63deaf424dde86a05842343017447c0a1e /test | |
| parent | e7e92dc5d24ac3bcde69732bab6a6c3c0d9de97b (diff) | |
| download | emacs-9a74e5666b022098c63d0047c0df90c66e1aa64a.tar.gz emacs-9a74e5666b022098c63d0047c0df90c66e1aa64a.zip | |
* lisp/textmodes/sgml-mode.el (sgml-syntax-propertize-rules): Fix typo
* test/lisp/textmodes/sgml-mode-tests.el (sgml-tests--quotes-syntax):
New corresponding test.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/textmodes/sgml-mode-tests.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test/lisp/textmodes/sgml-mode-tests.el b/test/lisp/textmodes/sgml-mode-tests.el index 4355e1c8658..a900e8dcf22 100644 --- a/test/lisp/textmodes/sgml-mode-tests.el +++ b/test/lisp/textmodes/sgml-mode-tests.el | |||
| @@ -160,5 +160,12 @@ The point is set to the beginning of the buffer." | |||
| 160 | (sgml-quote (point-min) (point-max) t) | 160 | (sgml-quote (point-min) (point-max) t) |
| 161 | (should (string= "&&" (buffer-string)))))) | 161 | (should (string= "&&" (buffer-string)))))) |
| 162 | 162 | ||
| 163 | (ert-deftest sgml-tests--quotes-syntax () | ||
| 164 | (with-temp-buffer | ||
| 165 | (sgml-mode) | ||
| 166 | (insert "a\"b <tag>c'd</tag>") | ||
| 167 | (should (= 1 (car (syntax-ppss (1- (point-max)))))) | ||
| 168 | (should (= 0 (car (syntax-ppss (point-max))))))) | ||
| 169 | |||
| 163 | (provide 'sgml-mode-tests) | 170 | (provide 'sgml-mode-tests) |
| 164 | ;;; sgml-mode-tests.el ends here | 171 | ;;; sgml-mode-tests.el ends here |