diff lisp/hm--html-menus/hm--html-mode.el @ 26:441bb1e64a06 r19-15b96

Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children 8b8b7f3559a2
line wrap: on
line diff
--- a/lisp/hm--html-menus/hm--html-mode.el	Mon Aug 13 08:51:05 2007 +0200
+++ b/lisp/hm--html-menus/hm--html-mode.el	Mon Aug 13 08:51:32 2007 +0200
@@ -2,7 +2,7 @@
 ;;;
 ;;; Keywords: hypermedia languages help docs wp
 ;;;
-;;; $Id: hm--html-mode.el,v 1.3 1997/02/22 22:07:11 steve Exp $
+;;; $Id: hm--html-mode.el,v 1.4 1997/03/02 03:43:19 steve Exp $
 ;;;
 ;;; Copyright (C) 1996, 1997 Heiko Muenkel
 ;;; email: muenkel@tnt.uni-hannover.de
@@ -53,6 +53,14 @@
 ;;;	(setq auto-mode-alist (cons '("\\.html$" . hm--html-mode) 
 ;;;				        auto-mode-alist))
 ;;;
+;;;	But you can also use the hm--html-minor-mode as an addition to
+;;;	the psgml html modes. For that you've to put the following line in
+;;;	your .emacs:
+;;;	(add-hook 'html-mode-hook 'hm--html-minor-mode)
+;;;
+;;;	Note: This works only in an XEmacs version greater than 19.14 and
+;;;	also not in the XEmacs 20.0.
+;;;
 ;;;	Look at the file hm--html-configuration for further installation
 ;;;     points.
 ;;;	
@@ -63,13 +71,19 @@
 (require 'adapt)
 (require 'hm--date)
 (require 'hm--html)
+
 (eval-when-compile
   (require 'hm--html-configuration))
+
 (hm--html-load-config-files)
 (require 'hm--html-indentation)
+(require 'hm--html-keys)
+
+(defvar hm--html-minor-mode nil
+  "Non-nil, if the `hm--html-minor-mode' is active.")
+
 (require 'hm--html-menu)
 (require 'hm--html-drag-and-drop)
-(require 'hm--html-keys)
 
 
 ;;; The package version
@@ -77,7 +91,7 @@
 
 (defconst hm--html-menus-package-name "hm--html-menus")
 
-(defconst hm--html-menus-package-version "5.2")
+(defconst hm--html-menus-package-version "5.3")
   
 
 ;;; Generate the help buffer faces
@@ -132,6 +146,7 @@
   (setq comment-start "<!--" comment-end "-->")
   (make-local-variable 'sentence-end)
   (setq sentence-end "[<>.?!][]\"')}]*\\($\\| $\\|\t\\|  \\)[ \t\n]*")
+  (make-local-variable 'indent-line-function)
   (setq indent-line-function 'hm--html-indent-line)
   (setq idd-actions hm--html-idd-actions)
   (hm--install-html-menu hm--html-mode-pulldown-menu-name)
@@ -204,10 +219,6 @@
 
 
 ;;; hm--html-minor-mode
-
-(defvar hm--html-minor-mode nil
-  "Non-nil, if the `hm--html-minor-mode' is active.")
-
 (make-variable-buffer-local 'hm--html-minor-mode)
 
 (add-minor-mode 'hm--html-minor-mode " HM-HTML" hm--html-minor-mode-map)