570 Text.Info(r, result) <- |
570 Text.Info(r, result) <- |
571 snapshot.cumulate[(List[Markup], Option[Color])]( |
571 snapshot.cumulate[(List[Markup], Option[Color])]( |
572 range, (List(Markup.Empty), None), JEdit_Rendering.background_elements, |
572 range, (List(Markup.Empty), None), JEdit_Rendering.background_elements, |
573 command_states => |
573 command_states => |
574 { |
574 { |
575 case (((status, color), Text.Info(_, XML.Elem(markup, _)))) |
575 case (((markups, color), Text.Info(_, XML.Elem(markup, _)))) |
576 if status.nonEmpty && Protocol.proper_status_elements(markup.name) => |
576 if markups.nonEmpty && Protocol.proper_status_elements(markup.name) => |
577 Some((markup :: status, color)) |
577 Some((markup :: markups, color)) |
578 case (_, Text.Info(_, XML.Elem(Markup(Markup.BAD, _), _))) => |
578 case (_, Text.Info(_, XML.Elem(Markup(Markup.BAD, _), _))) => |
579 Some((Nil, Some(bad_color))) |
579 Some((Nil, Some(bad_color))) |
580 case (_, Text.Info(_, XML.Elem(Markup(Markup.INTENSIFY, _), _))) => |
580 case (_, Text.Info(_, XML.Elem(Markup(Markup.INTENSIFY, _), _))) => |
581 Some((Nil, Some(intensify_color))) |
581 Some((Nil, Some(intensify_color))) |
582 case (_, Text.Info(_, XML.Elem(Markup(Markup.ENTITY, props), _))) => |
582 case (_, Text.Info(_, XML.Elem(Markup(Markup.ENTITY, props), _))) => |