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.

table t : { A : int, B : string }
table u : { A : int, C : float }

val q : sql_query [] [T = [A = int, B = string], U = [C = option float]] [] =
    (SELECT t.A, t.B, u.C
     FROM {{sql_left_join (FROM t) (FROM u) (WHERE TRUE)}})