From xemacs-m  Fri Feb 21 06:24:19 1997
Received: from mgate.uni-hannover.de (mgate.uni-hannover.de [130.75.2.3])
	by xemacs.org (8.8.5/8.8.5) with SMTP id GAA29001
	for <xemacs-beta@xemacs.org>; Fri, 21 Feb 1997 06:24:18 -0600 (CST)
Received: from helios (actually helios.tnt.uni-hannover.de) by mgate 
          with SMTP (PP); Fri, 21 Feb 1997 13:23:44 +0100
Received: from daedalus.tnt.uni-hannover.de by helios (SMI-8.6/SMI-SVR4) 
          id NAA01863; Fri, 21 Feb 1997 13:23:04 +0100
Received: by daedalus.tnt.uni-hannover.de (SMI-8.6/SMI-SVR4) id NAA02963;
          Fri, 21 Feb 1997 13:23:04 +0100
Date: Fri, 21 Feb 1997 13:23:04 +0100
Message-Id: <199702211223.NAA02963@daedalus.tnt.uni-hannover.de>
From: Heiko Muenkel <muenkel@tnt.uni-hannover.de>
MIME-Version: 1.0
To: xemacs-beta@xemacs.org
Subject: Patch for psgml-html.el
X-Face: n}R'l6CHRf>pi&bj7[x0CW3:kmXm@1)7m+l*9[fp;-Ow4Xe~=5E;skf?2> 
        y]f{HzB|Q(\V9+y$PP~.4G[2n4W7{6Ilm[AMY9B:0kj.K_$-d%p4YIF*bX;=ADp6{ 
        HS@NEv9c.VII+9PgXHASx}K(jy^t=q%qzZ72q1e4E;O!$A$`&wgtLk"1%p.nC_G!] 
        4d1!+J4Q#YD_iXeEy`1x)d\r$1Qn\'23n|[8Y_xzuXJJ7W(EGqnzB]`]aq??;+z=) 
        DW~\'Vq&F'g%QU[Mv2:}nS>SdZFTEC2GsgB=Q,:~H<R5S[:ZN%B:s0;|v1x"Jb
Content-Type: text/plain; charset=US-ASCII

The following patch adds the hook variable html-mode-hook to the
html-mode. I've added this to use my minor mode hm--html-minor-mode
together with the html-mode. Note: Look at my next mail before trying
this.


---- Begin ----
*** psgml-html.el.orig	Tue Feb 18 11:03:42 1997
--- psgml-html.el	Fri Feb 21 11:46:27 1997
***************
*** 29,34 ****
--- 29,40 ----
  
  ; 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
***************
*** 106,111 ****
--- 112,120 ----
  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
  
***************
*** 214,220 ****
    ; 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")))
  
  (defun html-helper-add-type-to-alist (type)
    "Add a type specification to the alist.
--- 223,230 ----
    ; 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"))
!   (run-hooks 'html-mode-hook))
  
  (defun html-helper-add-type-to-alist (type)
    "Add a type specification to the alist.
---- End ----

