Mercurial > urweb
annotate tests/modnested.ur @ 2142:3288e3c9948b
Fix XML indentation in Emacs mode
The return value of MATCH-STRING is a string. At least on Emacs 25,
the comparisons between string and character with EQUAL could never
succeed, and so the cases for matching braces were never triggered.
GET-TEXT-PROPERTY may return a list rather than an atom (for example,
on long lines with whitespace-mode turned on), and this broke the
heuristic of looking for the tag face in previous text.
| author | Julian Squires <julian@cipht.net> |
|---|---|
| date | Mon, 04 May 2015 14:35:07 -0400 |
| parents | 71bafe66dbe1 |
| children |
| rev | line source |
|---|---|
| adamc@36 | 1 signature S = sig |
| adamc@36 | 2 type t |
| adamc@36 | 3 val x : t |
| adamc@36 | 4 |
| adamc@36 | 5 structure Q : sig |
| adamc@36 | 6 type q |
| adamc@36 | 7 val y : q |
| adamc@37 | 8 |
| adamc@37 | 9 structure V : sig |
| adamc@37 | 10 type v |
| adamc@37 | 11 end |
| adamc@36 | 12 end |
| adamc@36 | 13 end |
| adamc@36 | 14 |
| adamc@36 | 15 structure S = struct |
| adamc@36 | 16 type t = int |
| adamc@36 | 17 val x = 0 |
| adamc@36 | 18 |
| adamc@36 | 19 structure Q = struct |
| adamc@36 | 20 type q = float |
| adamc@36 | 21 val y = 0.0 |
| adamc@37 | 22 |
| adamc@37 | 23 structure V = struct |
| adamc@37 | 24 type v = string |
| adamc@37 | 25 val hi = "Hi" |
| adamc@37 | 26 end |
| adamc@36 | 27 end |
| adamc@36 | 28 end |
| adamc@36 | 29 |
| adamc@36 | 30 structure S1 = S |
| adamc@36 | 31 structure S2 : S = S |
| adamc@36 | 32 structure S3 = S2 |
| adamc@39 | 33 |
| adamc@39 | 34 val main = S3.Q.y |