2001-10-26 Sam Steingold <sds@gnu.org>
* textmodes/sgml-mode.el (html-mode): Set `html-xhtml' from the
- DOCTYPE.
+ DOCTYPE; set `mode-name' based on it.
(html-tag-alist): Use `html-xhtml' for "li", "dt" and "dd".
(sgml-tag): Close empty tags in XHTML.
nil t)
(set (make-local-variable 'html-xhtml)
(string= "X" (match-string 1))))))
+ (when html-xhtml
+ (setq mode-name "XHTML"))
;; It's for the user to decide if it defeats it or not -stef
;; (make-local-variable 'imenu-sort-function)
;; (setq imenu-sort-function nil) ; sorting the menu defeats the purpose