Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml-html.el @ 84:ac0620f6398e r20-0b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b92
author cvs
date Mon, 13 Aug 2007 09:08:29 +0200
parents 131b0175ea99
children 821dec489c24
comparison
equal deleted inserted replaced
83:ba3ba6e17456 84:ac0620f6398e
196 (if (and html-helper-build-new-buffer (zerop (buffer-size))) 196 (if (and html-helper-build-new-buffer (zerop (buffer-size)))
197 (html-helper-insert-new-buffer-strings)) 197 (html-helper-insert-new-buffer-strings))
198 198
199 (set (make-local-variable 'sgml-custom-markup) 199 (set (make-local-variable 'sgml-custom-markup)
200 '(("<A>" "<A HREF=\"\">\r</a>"))) 200 '(("<A>" "<A HREF=\"\">\r</a>")))
201
202 ;; Set up the syntax table.
203 (modify-syntax-entry ?< "(>" html-mode-syntax-table)
204 (modify-syntax-entry ?> ")<" html-mode-syntax-table)
205 (modify-syntax-entry ?\" ". " html-mode-syntax-table)
206 (modify-syntax-entry ?\\ ". " html-mode-syntax-table)
207 (modify-syntax-entry ?' "w " html-mode-syntax-table)
208
201 ; sigh ... need to call this now to get things working. 209 ; sigh ... need to call this now to get things working.
202 (sgml-build-custom-menus) 210 (sgml-build-custom-menus)
203 (add-submenu nil sgml-html-menu "SGML") 211 (add-submenu nil sgml-html-menu "SGML")
204 (delete-menu-item '("SGML"))) 212 (delete-menu-item '("SGML")))
205 213