--- a/lisp/psgml/psgml-html.el	Mon Aug 13 09:13:58 2007 +0200
+++ b/lisp/psgml/psgml-html.el	Mon Aug 13 09:15:11 2007 +0200
@@ -28,6 +28,12 @@
 
 ; Parts were taken from html-helper-mode and from code by Alastair Burt.
 
+; Feb 18 1997, Heiko Muenkel: Added the hook variable html-mode-hook.
+;	With that you can now use the hm--html-minor-mode together
+;	with this mode. For that you've to add the following line
+;	to your ~/.emacs:
+;		(add-hook 'html-mode-hook 'hm--html-minor-mode)
+
 ;;; Code:
 
 (defvar html-auto-sgml-entity-conversion nil
@@ -105,6 +111,9 @@
 If you want to not install some type of tag, override this variable.
 Order is significant: menus go in this order.")
 
+(defvar html-mode-hook nil
+  "*Hook called by `html-mode'.")
+
 ;;}}} end of user variables
 ;;{{{ type based keymap and menu variable and function setup
 
@@ -213,7 +222,8 @@
   ; sigh ...  need to call this now to get things working.
   (sgml-build-custom-menus)
   (add-submenu nil sgml-html-menu "SGML")
-  (delete-menu-item '("SGML")))
+  (delete-menu-item '("SGML"))
+  (run-hooks 'html-mode-hook))
 
 (defun html-helper-add-type-to-alist (type)
   "Add a type specification to the alist.