Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
1 ;;; hm--html-mode --- Major mode for editing HTML documents for the WWW 1 ;;; hm--html-mode --- Major mode for editing HTML documents for the WWW
2 ;;; 2 ;;;
3 ;;; Keywords: hypermedia languages help docs wp 3 ;;; Keywords: hypermedia languages help docs wp
4 ;;; 4 ;;;
5 ;;; $Id: hm--html-mode.el,v 1.3 1997/02/22 22:07:11 steve Exp $ 5 ;;; $Id: hm--html-mode.el,v 1.4 1997/03/02 03:43:19 steve Exp $
6 ;;; 6 ;;;
7 ;;; Copyright (C) 1996, 1997 Heiko Muenkel 7 ;;; Copyright (C) 1996, 1997 Heiko Muenkel
8 ;;; email: muenkel@tnt.uni-hannover.de 8 ;;; email: muenkel@tnt.uni-hannover.de
9 ;;; 9 ;;;
10 ;;; This program is free software; you can redistribute it and/or modify 10 ;;; This program is free software; you can redistribute it and/or modify
51 ;;; 19.14, then you must put the following instead of the last form 51 ;;; 19.14, then you must put the following instead of the last form
52 ;;; in your .emacs: 52 ;;; in your .emacs:
53 ;;; (setq auto-mode-alist (cons '("\\.html$" . hm--html-mode) 53 ;;; (setq auto-mode-alist (cons '("\\.html$" . hm--html-mode)
54 ;;; auto-mode-alist)) 54 ;;; auto-mode-alist))
55 ;;; 55 ;;;
56 ;;; But you can also use the hm--html-minor-mode as an addition to
57 ;;; the psgml html modes. For that you've to put the following line in
58 ;;; your .emacs:
59 ;;; (add-hook 'html-mode-hook 'hm--html-minor-mode)
60 ;;;
61 ;;; Note: This works only in an XEmacs version greater than 19.14 and
62 ;;; also not in the XEmacs 20.0.
63 ;;;
56 ;;; Look at the file hm--html-configuration for further installation 64 ;;; Look at the file hm--html-configuration for further installation
57 ;;; points. 65 ;;; points.
58 ;;; 66 ;;;
59 ;;; 67 ;;;
60 68
61 69
62 (require 'font-lock) 70 (require 'font-lock)
63 (require 'adapt) 71 (require 'adapt)
64 (require 'hm--date) 72 (require 'hm--date)
65 (require 'hm--html) 73 (require 'hm--html)
74
66 (eval-when-compile 75 (eval-when-compile
67 (require 'hm--html-configuration)) 76 (require 'hm--html-configuration))
77
68 (hm--html-load-config-files) 78 (hm--html-load-config-files)
69 (require 'hm--html-indentation) 79 (require 'hm--html-indentation)
80 (require 'hm--html-keys)
81
82 (defvar hm--html-minor-mode nil
83 "Non-nil, if the `hm--html-minor-mode' is active.")
84
70 (require 'hm--html-menu) 85 (require 'hm--html-menu)
71 (require 'hm--html-drag-and-drop) 86 (require 'hm--html-drag-and-drop)
72 (require 'hm--html-keys)
73 87
74 88
75 ;;; The package version 89 ;;; The package version
76 (defconst hm--html-menus-package-maintainer "muenkel@tnt.uni-hannover.de") 90 (defconst hm--html-menus-package-maintainer "muenkel@tnt.uni-hannover.de")
77 91
78 (defconst hm--html-menus-package-name "hm--html-menus") 92 (defconst hm--html-menus-package-name "hm--html-menus")
79 93
80 (defconst hm--html-menus-package-version "5.2") 94 (defconst hm--html-menus-package-version "5.3")
81 95
82 96
83 ;;; Generate the help buffer faces 97 ;;; Generate the help buffer faces
84 (hm--html-generate-help-buffer-faces) 98 (hm--html-generate-help-buffer-faces)
85 99
130 (make-local-variable 'comment-start) 144 (make-local-variable 'comment-start)
131 (make-local-variable 'comment-end) 145 (make-local-variable 'comment-end)
132 (setq comment-start "<!--" comment-end "-->") 146 (setq comment-start "<!--" comment-end "-->")
133 (make-local-variable 'sentence-end) 147 (make-local-variable 'sentence-end)
134 (setq sentence-end "[<>.?!][]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*") 148 (setq sentence-end "[<>.?!][]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*")
149 (make-local-variable 'indent-line-function)
135 (setq indent-line-function 'hm--html-indent-line) 150 (setq indent-line-function 'hm--html-indent-line)
136 (setq idd-actions hm--html-idd-actions) 151 (setq idd-actions hm--html-idd-actions)
137 (hm--install-html-menu hm--html-mode-pulldown-menu-name) 152 (hm--install-html-menu hm--html-mode-pulldown-menu-name)
138 (make-variable-buffer-local 'write-file-hooks) 153 (make-variable-buffer-local 'write-file-hooks)
139 (add-hook 'write-file-hooks 'hm--html-maybe-new-date-and-changed-comment) 154 (add-hook 'write-file-hooks 'hm--html-maybe-new-date-and-changed-comment)
202 217
203 ) 218 )
204 219
205 220
206 ;;; hm--html-minor-mode 221 ;;; hm--html-minor-mode
207
208 (defvar hm--html-minor-mode nil
209 "Non-nil, if the `hm--html-minor-mode' is active.")
210
211 (make-variable-buffer-local 'hm--html-minor-mode) 222 (make-variable-buffer-local 'hm--html-minor-mode)
212 223
213 (add-minor-mode 'hm--html-minor-mode " HM-HTML" hm--html-minor-mode-map) 224 (add-minor-mode 'hm--html-minor-mode " HM-HTML" hm--html-minor-mode-map)
214 225
215 ;;;###autoload 226 ;;;###autoload