Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml-html.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 0293115a14e9
children e04119814345
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
26 ;;; Author: Ben Wing. 26 ;;; Author: Ben Wing.
27 27
28 ;;; Commentary: 28 ;;; Commentary:
29 29
30 ; Parts were taken from html-helper-mode and from code by Alastair Burt. 30 ; Parts were taken from html-helper-mode and from code by Alastair Burt.
31
32 ; Feb 18 1997, Heiko Muenkel: Added the hook variable html-mode-hook.
33 ; With that you can now use the hm--html-minor-mode together
34 ; with this mode. For that you've to add the following line
35 ; to your ~/.emacs:
36 ; (add-hook 'html-mode-hook 'hm--html-minor-mode)
31 37
32 ;;; Code: 38 ;;; Code:
33 39
34 (defvar html-auto-sgml-entity-conversion nil 40 (defvar html-auto-sgml-entity-conversion nil
35 "*Control automatic sgml entity to ISO-8859-1 conversion") 41 "*Control automatic sgml entity to ISO-8859-1 conversion")
103 (defvar html-helper-types-to-install 109 (defvar html-helper-types-to-install
104 '(anchor header logical phys list textel entity image head form) 110 '(anchor header logical phys list textel entity image head form)
105 "*List of tag types to install when html-helper-mode is first loaded. 111 "*List of tag types to install when html-helper-mode is first loaded.
106 If you want to not install some type of tag, override this variable. 112 If you want to not install some type of tag, override this variable.
107 Order is significant: menus go in this order.") 113 Order is significant: menus go in this order.")
114
115 (defvar html-mode-hook nil
116 "*Hook called by `html-mode'.")
108 117
109 ;;}}} end of user variables 118 ;;}}} end of user variables
110 ;;{{{ type based keymap and menu variable and function setup 119 ;;{{{ type based keymap and menu variable and function setup
111 120
112 ;; html-helper-mode has a concept of "type" of tags. Each type is a 121 ;; html-helper-mode has a concept of "type" of tags. Each type is a
212 (modify-syntax-entry ?' "w " html-mode-syntax-table) 221 (modify-syntax-entry ?' "w " html-mode-syntax-table)
213 222
214 ; sigh ... need to call this now to get things working. 223 ; sigh ... need to call this now to get things working.
215 (sgml-build-custom-menus) 224 (sgml-build-custom-menus)
216 (add-submenu nil sgml-html-menu "SGML") 225 (add-submenu nil sgml-html-menu "SGML")
217 (delete-menu-item '("SGML"))) 226 (delete-menu-item '("SGML"))
227 (run-hooks 'html-mode-hook))
218 228
219 (defun html-helper-add-type-to-alist (type) 229 (defun html-helper-add-type-to-alist (type)
220 "Add a type specification to the alist. 230 "Add a type specification to the alist.
221 The spec goes (type . (keymap-symbol keyprefix menu-symbol menu-string)). 231 The spec goes (type . (keymap-symbol keyprefix menu-symbol menu-string)).
222 See code for an example." 232 See code for an example."