Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml-html.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 821dec489c24
children fe104dbd9147
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
25 ;;; Author: Ben Wing. 25 ;;; Author: Ben Wing.
26 26
27 ;;; Commentary: 27 ;;; Commentary:
28 28
29 ; Parts were taken from html-helper-mode and from code by Alastair Burt. 29 ; Parts were taken from html-helper-mode and from code by Alastair Burt.
30
31 ; Feb 18 1997, Heiko Muenkel: Added the hook variable html-mode-hook.
32 ; With that you can now use the hm--html-minor-mode together
33 ; with this mode. For that you've to add the following line
34 ; to your ~/.emacs:
35 ; (add-hook 'html-mode-hook 'hm--html-minor-mode)
30 36
31 ;;; Code: 37 ;;; Code:
32 38
33 (defvar html-auto-sgml-entity-conversion nil 39 (defvar html-auto-sgml-entity-conversion nil
34 "*Control automatic sgml entity to ISO-8859-1 conversion") 40 "*Control automatic sgml entity to ISO-8859-1 conversion")
102 (defvar html-helper-types-to-install 108 (defvar html-helper-types-to-install
103 '(anchor header logical phys list textel entity image head form) 109 '(anchor header logical phys list textel entity image head form)
104 "*List of tag types to install when html-helper-mode is first loaded. 110 "*List of tag types to install when html-helper-mode is first loaded.
105 If you want to not install some type of tag, override this variable. 111 If you want to not install some type of tag, override this variable.
106 Order is significant: menus go in this order.") 112 Order is significant: menus go in this order.")
113
114 (defvar html-mode-hook nil
115 "*Hook called by `html-mode'.")
107 116
108 ;;}}} end of user variables 117 ;;}}} end of user variables
109 ;;{{{ type based keymap and menu variable and function setup 118 ;;{{{ type based keymap and menu variable and function setup
110 119
111 ;; html-helper-mode has a concept of "type" of tags. Each type is a 120 ;; html-helper-mode has a concept of "type" of tags. Each type is a
211 (modify-syntax-entry ?' "w " html-mode-syntax-table) 220 (modify-syntax-entry ?' "w " html-mode-syntax-table)
212 221
213 ; sigh ... need to call this now to get things working. 222 ; sigh ... need to call this now to get things working.
214 (sgml-build-custom-menus) 223 (sgml-build-custom-menus)
215 (add-submenu nil sgml-html-menu "SGML") 224 (add-submenu nil sgml-html-menu "SGML")
216 (delete-menu-item '("SGML"))) 225 (delete-menu-item '("SGML"))
226 (run-hooks 'html-mode-hook))
217 227
218 (defun html-helper-add-type-to-alist (type) 228 (defun html-helper-add-type-to-alist (type)
219 "Add a type specification to the alist. 229 "Add a type specification to the alist.
220 The spec goes (type . (keymap-symbol keyprefix menu-symbol menu-string)). 230 The spec goes (type . (keymap-symbol keyprefix menu-symbol menu-string)).
221 See code for an example." 231 See code for an example."