Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/psgml/psgml-html.el	Mon Aug 13 09:07:39 2007 +0200
+++ b/lisp/psgml/psgml-html.el	Mon Aug 13 09:08:29 2007 +0200
@@ -198,6 +198,14 @@
 
   (set (make-local-variable 'sgml-custom-markup)
        '(("<A>" "<A HREF=\"\">\r</a>")))
+
+  ;; Set up the syntax table.
+  (modify-syntax-entry ?< "(>" html-mode-syntax-table)
+  (modify-syntax-entry ?> ")<" html-mode-syntax-table)
+  (modify-syntax-entry ?\" ".   " html-mode-syntax-table)
+  (modify-syntax-entry ?\\ ".   " html-mode-syntax-table)
+  (modify-syntax-entry ?'  "w   " html-mode-syntax-table)
+
   ; sigh ...  need to call this now to get things working.
   (sgml-build-custom-menus)
   (add-submenu nil sgml-html-menu "SGML")