;;;;  html mode


(make-variable-buffer-local 'sgml-mode)
(setq-default sgml-mode nil)           ; is this buffer in cperl-mode?
(add-hook 'sgml-mode-hook
	  (defun my-sgml-mode-hook ()
	    (setq sgml-mode t)
	    (define-key sgml-mode-map "\t" 'my-tab)
))