From xemacs-m  Tue Apr 22 04:17:20 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 EAA07133
	for <xemacs-beta@xemacs.org>; Tue, 22 Apr 1997 04:17:19 -0500 (CDT)
Received: from helios (actually helios.tnt.uni-hannover.de) by mgate 
          with SMTP (PP); Tue, 22 Apr 1997 11:15:27 +0200
Received: from daedalus.tnt.uni-hannover.de by helios (SMI-8.6/SMI-SVR4) 
          id LAA23937; Tue, 22 Apr 1997 11:14:41 +0200
Received: by daedalus.tnt.uni-hannover.de (SMI-8.6/SMI-SVR4) id LAA02632;
          Tue, 22 Apr 1997 11:14:38 +0200
Date: Tue, 22 Apr 1997 11:14:38 +0200
Message-Id: <199704220914.LAA02632@daedalus.tnt.uni-hannover.de>
From: Heiko Muenkel <muenkel@tnt.uni-hannover.de>
To: xemacs-beta@xemacs.org
Subject: Fix for psgml-html.el
X-Mailer: VM 6.22 under 19.15 XEmacs Lucid
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
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII

The following is a patch for the file psgml-html.el in the XEmacs
19.15 (no idea, it is also necessary for 20.x). It removes the hook
variable html-mode-hook. This is necessary, because the hook variable
is now (since the last 19.15 betas?) already added by the macro
define-derived-mode.

*** psgml-html.el	Tue Apr 22 11:11:20 1997
--- psgml-html.el.~1~	Mon Mar 24 02:27:08 1997
***************
*** 29,37 ****
  
  ; Parts were taken from html-helper-mode and from code by Alastair Burt.
  
! ; If you'd like to use the hm--html-minor-mode together with this
! ; mode, you have to put the following line to your ~/.emacs:
! ;	(add-hook 'html-mode-hook 'hm--html-minor-mode)
  
  ;;; Code:
  
--- 29,39 ----
  
  ; 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:
  
***************
*** 110,115 ****
--- 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
  
***************
*** 218,224 ****
    ; 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.

