diff options
Diffstat (limited to 'ide')
-rw-r--r-- | ide/coqOps.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ide/coqOps.ml b/ide/coqOps.ml index 52f935bf6..1563c7ffb 100644 --- a/ide/coqOps.ml +++ b/ide/coqOps.ml @@ -481,6 +481,8 @@ object(self) add_flag sentence (`WARNING (loc, msg)); self#attach_tooltip sentence loc msg; self#position_warning_tag_at_sentence sentence loc + | Message((Info|Notice|Debug as lvl), _, msg), _ -> + messages#push lvl msg | InProgress n, _ -> if n < 0 then processed <- processed + abs n else to_process <- to_process + n |