Mercurial > emacs

comparison lisp/textmodes/sgml-mode.el @ 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 ea7ef845ccf3
comparison
equal deleted inserted replaced
40349:eb00cb396b78 40350:69db29c9019b
1281 (when (re-search-forward 1281 (when (re-search-forward
1282 "<!DOCTYPE\\s-+html\\s-+PUBLIC\\s-+\"-//W3C//DTD \\(X?\\)HTML" 1282 "<!DOCTYPE\\s-+html\\s-+PUBLIC\\s-+\"-//W3C//DTD \\(X?\\)HTML"
1283 nil t) 1283 nil t)
1284 (set (make-local-variable 'html-xhtml) 1284 (set (make-local-variable 'html-xhtml)
1285 (string= "X" (match-string 1)))))) 1285 (string= "X" (match-string 1))))))
1286 (when html-xhtml
1287 (setq mode-name "XHTML"))
1286 ;; It's for the user to decide if it defeats it or not -stef 1288 ;; It's for the user to decide if it defeats it or not -stef
1287 ;; (make-local-variable 'imenu-sort-function) 1289 ;; (make-local-variable 'imenu-sort-function)
1288 ;; (setq imenu-sort-function nil) ; sorting the menu defeats the purpose 1290 ;; (setq imenu-sort-function nil) ; sorting the menu defeats the purpose
1289 ) 1291 )
1290 1292