comparison lisp/psgml/psgml-html.el @ 48:56c54cf7c5b6 r19-16b90

Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 8b8b7f3559a2
children 131b0175ea99
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
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 31
32 ; Feb 18 1997, Heiko Muenkel: Added the hook variable html-mode-hook. 32 ; If you'd like to use the hm--html-minor-mode together with this
33 ; With that you can now use the hm--html-minor-mode together 33 ; mode, you have to put the following line to your ~/.emacs:
34 ; with this mode. For that you've to add the following line 34 ; (add-hook 'html-mode-hook 'hm--html-minor-mode)
35 ; to your ~/.emacs:
36 ; (add-hook 'html-mode-hook 'hm--html-minor-mode)
37 35
38 ;;; Code: 36 ;;; Code:
39 37
40 (defvar html-auto-sgml-entity-conversion nil 38 (defvar html-auto-sgml-entity-conversion nil
41 "*Control automatic sgml entity to ISO-8859-1 conversion") 39 "*Control automatic sgml entity to ISO-8859-1 conversion")
109 (defvar html-helper-types-to-install 107 (defvar html-helper-types-to-install
110 '(anchor header logical phys list textel entity image head form) 108 '(anchor header logical phys list textel entity image head form)
111 "*List of tag types to install when html-helper-mode is first loaded. 109 "*List of tag types to install when html-helper-mode is first loaded.
112 If you want to not install some type of tag, override this variable. 110 If you want to not install some type of tag, override this variable.
113 Order is significant: menus go in this order.") 111 Order is significant: menus go in this order.")
114
115 (defvar html-mode-hook nil
116 "*Hook called by `html-mode'.")
117 112
118 ;;}}} end of user variables 113 ;;}}} end of user variables
119 ;;{{{ type based keymap and menu variable and function setup 114 ;;{{{ type based keymap and menu variable and function setup
120 115
121 ;; html-helper-mode has a concept of "type" of tags. Each type is a 116 ;; html-helper-mode has a concept of "type" of tags. Each type is a
221 (modify-syntax-entry ?' "w " html-mode-syntax-table) 216 (modify-syntax-entry ?' "w " html-mode-syntax-table)
222 217
223 ; sigh ... need to call this now to get things working. 218 ; sigh ... need to call this now to get things working.
224 (sgml-build-custom-menus) 219 (sgml-build-custom-menus)
225 (add-submenu nil sgml-html-menu "SGML") 220 (add-submenu nil sgml-html-menu "SGML")
226 (delete-menu-item '("SGML")) 221 (delete-menu-item '("SGML")))
227 (run-hooks 'html-mode-hook))
228 222
229 (defun html-helper-add-type-to-alist (type) 223 (defun html-helper-add-type-to-alist (type)
230 "Add a type specification to the alist. 224 "Add a type specification to the alist.
231 The spec goes (type . (keymap-symbol keyprefix menu-symbol menu-string)). 225 The spec goes (type . (keymap-symbol keyprefix menu-symbol menu-string)).
232 See code for an example." 226 See code for an example."