From: Glenn Morris Date: Sat, 11 Dec 2010 02:50:58 +0000 (-0800) Subject: * lisp/textmodes/sgml-mode.el (sgml-xml-guess): Add .xhtml extension. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~43^2~5 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6961d41cfbf7256ecd1f1b7befe59cf635deb73b;p=emacs.git * lisp/textmodes/sgml-mode.el (sgml-xml-guess): Add .xhtml extension. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a63aa192181..130bc61f642 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-12-11 Glenn Morris + + * textmodes/sgml-mode.el (sgml-xml-guess): Add .xhtml extension. + 2010-12-11 Karel Klíč * files.el (auto-mode-alist): Use html-mode for *.xhtml. (Bug#7606) diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 47d2f7a45e0..a525c1a7e2c 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -384,6 +384,9 @@ a DOCTYPE or an XML declaration." (save-excursion (goto-char (point-min)) (or (string= "xml" (file-name-extension (or buffer-file-name ""))) + ;; Maybe the buffer-size check isn't needed, I don't know. + (and (zerop (buffer-size)) + (string= "xhtml" (file-name-extension (or buffer-file-name "")))) (looking-at "\\s-*<\\?xml") (when (re-search-forward (eval-when-compile @@ -2153,5 +2156,4 @@ Can be used as a value for `html-mode-hook'." (provide 'sgml-mode) -;; arch-tag: 9675da94-b7f9-4bda-ad19-73ed7b4fb401 ;;; sgml-mode.el ends here