annotate tests/functorMadness.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 210fb3dfc483
children
rev   line source
adam@1989 1 functor F(M : sig end) = struct
adam@1989 2 fun f () = f ()
adam@1989 3
adam@1989 4 functor G(M : sig end) = struct
adam@1989 5 fun g () = f ()
adam@1989 6 end
adam@1989 7 end
adam@1989 8
adam@1989 9 structure M1 = F(struct end)
adam@1989 10 structure M2 = F(struct end)
adam@1989 11
adam@1989 12 structure N1 = M1.G(struct end)
adam@1989 13 structure N2 = M2.G(struct end)
adam@1989 14
adam@1989 15 fun main () : transaction page =
adam@1989 16 return (N1.g ());
adam@1989 17 return (N2.g ());
adam@1989 18 return <xml/>