]> git.rkrishnan.org Git - .emacs.d.git/blob - emacs/nxhtml/etc/schema/nxml-erb.patch
submodulized .emacs.d setup
[.emacs.d.git] / emacs / nxhtml / etc / schema / nxml-erb.patch
1 --- nxml-mode-orig/xmltok.el    2005-10-16 15:32:53.000000000 -0400
2 +++ nxml-mode-erb/xmltok.el     2006-09-01 01:02:55.000000000 -0400
3 @@ -496,6 +496,9 @@
4           (xmltok+ (xmltok-g markup-declaration "!")
5                    (xmltok-g comment-first-dash "-"
6                              (xmltok-g comment-open "-") opt) opt))
7 +         (erb-section
8 +          (xmltok+ "%"
9 +                   (xmltok-g erb-section-open "[^%]") opt))
10          (cdata-section
11           (xmltok+ "!"
12                   (xmltok-g marked-section-open "\\[")
13 @@ -526,6 +529,7 @@
14                                ;; by default
15                                or cdata-section
16                                or comment
17 +                               or erb-section
18                                or processing-instruction))
19      (xmltok-defregexp
20       xmltok-attribute
21 @@ -693,6 +697,16 @@
22                                               nil
23                                               "]]>")
24                         'not-well-formed)))
25 +               ((xmltok-after-lt start erb-section-open)
26 +               (setq xmltok-type
27 +                     (if (re-search-forward "[^%]%>" nil t)
28 +                         'erb-section
29 +                       (xmltok-add-error "No closing %>")
30 +                       (xmltok-add-dependent 'xmltok-unclosed-reparse-p
31 +                                             nil
32 +                                             nil
33 +                                             "%>")
34 +                       'not-well-formed)))
35                ((xmltok-after-lt start processing-instruction-question)
36                 (xmltok-scan-after-processing-instruction-open))
37                ((xmltok-after-lt start comment-open)