diff options
| author | Tom Tromey <tom@tromey.com> | 2017-03-23 11:34:27 -0600 |
|---|---|---|
| committer | Tom Tromey <tom@tromey.com> | 2017-03-23 21:06:50 -0600 |
| commit | 349991544b12d6ad06be189b66969752f051cd4a (patch) | |
| tree | e2c48cf9b4130bc2ff688d23f5ba400b6de0775a /lisp/files.el | |
| parent | 23e71eba426fd2589a4b2943a5fd6075118964bf (diff) | |
| download | emacs-feature/mhtml-mode.tar.gz | |
enable mhtml-mode by defaultfeature/mhtml-mode
* lisp/files.el (auto-mode-alist): Reference mhtml-mode, not
html-mode.
(magic-fallback-mode-alist): Likewise.
* lisp/net/eww.el (eww-view-source): Use mthml-mode.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el index 0a023a88b10..bf48bce3b0d 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2424,7 +2424,7 @@ since only a single case-insensitive search through the alist is made." (lambda (elt) (cons (purecopy (car elt)) (cdr elt))) `(;; do this first, so that .html.pl is Polish html, not Perl - ("\\.[sx]?html?\\(\\.[a-zA-Z_]+\\)?\\'" . html-mode) + ("\\.[sx]?html?\\(\\.[a-zA-Z_]+\\)?\\'" . mhtml-mode) ("\\.svgz?\\'" . image-mode) ("\\.svgz?\\'" . xml-mode) ("\\.x[bp]m\\'" . image-mode) @@ -2786,8 +2786,8 @@ If FUNCTION is nil, then it is not called. (That is a way of saying comment-re "*" "\\(?:!DOCTYPE[ \t\r\n]+[^>]*>[ \t\r\n]*<[ \t\r\n]*" comment-re "*\\)?" "[Hh][Tt][Mm][Ll]")) - . html-mode) - ("<!DOCTYPE[ \t\r\n]+[Hh][Tt][Mm][Ll]" . html-mode) + . mhtml-mode) + ("<!DOCTYPE[ \t\r\n]+[Hh][Tt][Mm][Ll]" . mhtml-mode) ;; These two must come after html, because they are more general: ("<\\?xml " . xml-mode) (,(let* ((incomment-re "\\(?:[^-]\\|-[^-]\\)") |