Mercurial > emacs

changeset 40350:69db29c9019b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(html-mode); set `mode-name' based on `html-xhtml'
author Sam Steingold <sds@gnu.org>
date Fri, 26 Oct 2001 20:55:36 +0000
parents eb00cb396b78
children a44d4a7dd8de
files lisp/ChangeLog lisp/textmodes/sgml-mode.el
diffstat 2 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Oct 26 20:29:10 2001 +0000
+++ b/lisp/ChangeLog	Fri Oct 26 20:55:36 2001 +0000
@@ -1,7 +1,7 @@
 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.
 
--- a/lisp/textmodes/sgml-mode.el	Fri Oct 26 20:29:10 2001 +0000
+++ b/lisp/textmodes/sgml-mode.el	Fri Oct 26 20:55:36 2001 +0000
@@ -1283,6 +1283,8 @@
              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