From c9f845a53c946f28820a476de7089f486ccaf6b9 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Daniel=20Mart=C3=ADn?= Date: Sat, 19 Sep 2020 19:15:48 +0200 Subject: [PATCH] Put files in mhtml-mode when they have ]*>[ \t\r\n]*<[ \t\r\n]*" comment-re "*\\)?" "[Hh][Tt][Mm][Ll]")) . mhtml-mode) - ("." (should (equal (parse-colon-path "/foo//bar/baz") '("/foo/bar/baz/")))) +(ert-deftest files-test-magic-mode-alist-doctype () + "Test that DOCTYPE and variants put files in mhtml-mode." + (with-temp-buffer + (goto-char (point-min)) + (insert "") + (normal-mode) + (should (eq major-mode 'mhtml-mode)) + (erase-buffer) + (insert "") + (normal-mode) + (should (eq major-mode 'mhtml-mode)))) + (provide 'files-tests) ;;; files-tests.el ends here -- 2.39.5