From 8f2f91f7acf5792f0dc38f8045dc0d3ffe2e4593 Mon Sep 17 00:00:00 2001 From: Stephen Berman Date: Mon, 14 Jun 2021 14:57:57 +0200 Subject: Fix problem in HTML with bracketed characters * lisp/textmodes/sgml-mode.el (sgml-tag-syntax-table): Use bracket syntax for all Unicode bracket characters (bug#43941). --- test/lisp/textmodes/sgml-mode-tests.el | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) (limited to 'test/lisp/textmodes/sgml-mode-tests.el') diff --git a/test/lisp/textmodes/sgml-mode-tests.el b/test/lisp/textmodes/sgml-mode-tests.el index 697c96c78e5..39d44e8f683 100644 --- a/test/lisp/textmodes/sgml-mode-tests.el +++ b/test/lisp/textmodes/sgml-mode-tests.el @@ -204,5 +204,32 @@ The point is set to the beginning of the buffer." (should (= 1 (- (car (syntax-ppss (1- (point-max)))) (car (syntax-ppss (point-max)))))))) +(ert-deftest sgml-test-brackets () + "Test fontification of apostrophe preceded by paired-bracket character." + (let (brackets results) + (map-char-table + (lambda (key value) + (setq brackets (cons (list + (if (consp key) + (list (car key) (cdr key)) + key) + value) + brackets))) + (unicode-property-table-internal 'paired-bracket)) + (setq brackets (delete-dups (flatten-tree brackets))) + (setq brackets (append brackets (list ?$ ?% ?& ?* ?+ ?/))) + (with-temp-buffer + (while brackets + (let ((char (string (pop brackets)))) + (insert (concat "

" char "'s

\n")))) + (html-mode) + (font-lock-ensure (point-min) (point-max)) + (goto-char (point-min)) + (while (not (eobp)) + (goto-char (next-single-char-property-change (point) 'face)) + (let ((val (get-text-property (point) 'face))) + (when val + (should-not (eq val 'font-lock-string-face)))))))) + (provide 'sgml-mode-tests) ;;; sgml-mode-tests.el ends here -- cgit v1.2.3