diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-10-13 15:31:02 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-13 15:31:02 -0400 |
| commit | cf62ed3325e024601d3d04d638b6a0aa383310ae (patch) | |
| tree | dac179bd4bae0bcf8f083b0db03d8391f582e2ea /src/elisp | |
| parent | 2fc202f5ac5f243151ea56185b6dc9739f7546aa (diff) | |
Reorder font-lock rules to deal better with CDATA
Diffstat (limited to 'src/elisp')
| -rw-r--r-- | src/elisp/urweb-mode.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/elisp/urweb-mode.el b/src/elisp/urweb-mode.el index 217537e0..d2cbfb3e 100644 --- a/src/elisp/urweb-mode.el +++ b/src/elisp/urweb-mode.el @@ -181,6 +181,16 @@ See doc for the variable `urweb-mode-info'." (defconst urweb-font-lock-keywords `(;;(urweb-font-comments-and-strings) + ("\\(<\\sw+\\)\\(\\s-\\|\\sw\\|=\\|\"[^\"]*\"\\|{[^}]*}\\)*/?\\(>\\)" + (1 font-lock-tag-face) + (3 font-lock-tag-face)) + ("\\(</\\sw+>\\)" + (1 font-lock-tag-face)) + ("\\([^<>{}]+\\)" + (1 (if (save-excursion (inXml 0)) + font-lock-string-face + nil))) + ("\\<\\(fun\\|and\\)\\s-+\\(\\sw+\\)\\s-+[^ \t\n=]" (1 font-lock-keyword-face) (2 font-lock-function-name-face)) @@ -196,16 +206,6 @@ See doc for the variable `urweb-mode-info'." ("\\<\\(signature\\)\\s-+\\(\\sw+\\)" (1 font-lock-keyword-face) (2 font-lock-interface-def-face)) - - ("\\(<\\sw+\\)\\(\\s-\\|\\sw\\|=\\|\"[^\"]*\"\\|{[^}]*}\\)*/?\\(>\\)" - (1 font-lock-tag-face) - (3 font-lock-tag-face)) - ("\\(</\\sw+>\\)" - (1 font-lock-tag-face)) - ("\\([^<>{}]+\\)" - (1 (if (save-excursion (inXml 0)) - font-lock-string-face - nil))) (,urweb-keywords-regexp . font-lock-keyword-face) (,urweb-sql-keywords-regexp . font-lock-sql-face) |