Mercurial > hg > xemacs-beta
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." |