Mercurial > hg > xemacs-beta

comparison lisp/hm--html-menus/hm--html-mode.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 0d2f883870bc
children a145efe76779
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
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.2 1997/02/15 22:21:04 steve Exp $ 5 ;;; $Id: hm--html-mode.el,v 1.3 1997/02/24 01:13:27 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
61 61
62 (require 'font-lock) 62 (require 'font-lock)
63 (require 'adapt) 63 (require 'adapt)
64 (require 'hm--date) 64 (require 'hm--date)
65 (require 'hm--html) 65 (require 'hm--html)
66 (eval-when-compile
67 (require 'hm--html-configuration))
66 (hm--html-load-config-files) 68 (hm--html-load-config-files)
67 (require 'hm--html-indentation) 69 (require 'hm--html-indentation)
68 (require 'hm--html-menu) 70 (require 'hm--html-menu)
69 (require 'hm--html-drag-and-drop) 71 (require 'hm--html-drag-and-drop)
70 ;(hm--html-load-config-files) ; Load the system and user configuration files
71 (require 'hm--html-keys) 72 (require 'hm--html-keys)
72 73
73 74
74 ;;; The package version 75 ;;; The package version
75 (defconst hm--html-menus-package-maintainer "muenkel@tnt.uni-hannover.de") 76 (defconst hm--html-menus-package-maintainer "muenkel@tnt.uni-hannover.de")
76 77
77 (defconst hm--html-menus-package-name "hm--html-menus") 78 (defconst hm--html-menus-package-name "hm--html-menus")
78 79
79 (defconst hm--html-menus-package-version "5.1") 80 (defconst hm--html-menus-package-version "5.2")
80 81
81 82
82 ;;; Generate the help buffer faces 83 ;;; Generate the help buffer faces
83 (hm--html-generate-help-buffer-faces) 84 (hm--html-generate-help-buffer-faces)
84 85
134 (setq indent-line-function 'hm--html-indent-line) 135 (setq indent-line-function 'hm--html-indent-line)
135 (setq idd-actions hm--html-idd-actions) 136 (setq idd-actions hm--html-idd-actions)
136 (hm--install-html-menu hm--html-mode-pulldown-menu-name) 137 (hm--install-html-menu hm--html-mode-pulldown-menu-name)
137 (make-variable-buffer-local 'write-file-hooks) 138 (make-variable-buffer-local 'write-file-hooks)
138 (add-hook 'write-file-hooks 'hm--html-maybe-new-date-and-changed-comment) 139 (add-hook 'write-file-hooks 'hm--html-maybe-new-date-and-changed-comment)
139 ; (make-local-variable 'font-lock-keywords)
140 ; (setq font-lock-keywords-case-fold-search t)
141 ; (setq font-lock-keywords hm--html-font-lock-keywords)
142 (put major-mode 'font-lock-defaults '((hm--html-font-lock-keywords 140 (put major-mode 'font-lock-defaults '((hm--html-font-lock-keywords
143 hm--html-font-lock-keywords-1 141 hm--html-font-lock-keywords-1
144 hm--html-font-lock-keywords-2) 142 hm--html-font-lock-keywords-2)
145 t 143 t
146 t 144 t
202 hm--html-menu-noregion-novice-map))) 200 hm--html-menu-noregion-novice-map)))
203 ) 201 )
204 202
205 ) 203 )
206 204
207 ;(or (assq 'hm--html-region-mode minor-mode-alist)
208 ; (setq minor-mode-alist
209 ; (purecopy
210 ; (append minor-mode-alist
211 ; '((hm--html-region-mode " Region"))))))
212
213
214
215 ;(defun hm--html-region-mode (on)
216 ; "Turns the minor mode hm--html-region-mode on or off.
217 ;The function turns the hm--html-region-mode on, if ON is t and off otherwise."
218 ; (if (eq major-mode 'hm--html-mode)
219 ; ;;(string= mode-name "HTML")
220 ; (if on
221 ; ;; html-region-mode on
222 ; (progn
223 ; (setq hm--html-region-mode t)
224 ; (use-local-map hm--html-region-mode-map))
225 ; ;; html-region-mode off
226 ; (setq hm--html-region-mode nil)
227 ; (use-local-map hm--html-mode-map))))
228
229
230
231 205
232 ;;; hm--html-minor-mode 206 ;;; hm--html-minor-mode
233 207
234 (defvar hm--html-minor-mode nil 208 (defvar hm--html-minor-mode nil
235 "Non-nil, if the `hm--html-minor-mode' is active.") 209 "Non-nil, if the `hm--html-minor-mode' is active.")