print_state at high priority -- fast and important;

--- a/src/Pure/PIDE/command.ML	Fri Jul 19 23:29:43 2013 +0200
+++ b/src/Pure/PIDE/command.ML	Sat Jul 20 16:16:23 2013 +0200
@@ -285,7 +285,7 @@
 val _ =
   print_function "print_state"
     (fn {command_name} =>
-      SOME {delay = Time.zeroTime, pri = 0, persistent = true,
+      SOME {delay = Time.zeroTime, pri = 1, persistent = true,
         print_fn = fn tr => fn st' =>
           let
             val is_init = Keyword.is_theory_begin command_name;