removed obsolete prompt markup;

--- a/src/Pure/Isar/toplevel.ML	Sun Jan 06 15:57:52 2008 +0100
+++ b/src/Pure/Isar/toplevel.ML	Sun Jan 06 15:57:54 2008 +0100
@@ -786,9 +786,8 @@
   let
     fun check_secure () =
       (if secure then warning "Secure loop -- cannot exit to ML" else (); secure);
-    val prompt = Markup.markup Markup.prompt Source.default_prompt;
   in
-    (case get_interrupt (Source.set_prompt prompt src) of
+    (case get_interrupt (Source.set_prompt Source.default_prompt src) of
       NONE => (writeln "\nInterrupt."; raw_loop secure src)
     | SOME NONE => if secure then quit () else ()
     | SOME (SOME (tr, src')) => if >> tr orelse check_secure () then raw_loop secure src' else ())

--- a/src/Pure/ProofGeneral/proof_general_pgip.ML	Sun Jan 06 15:57:52 2008 +0100
+++ b/src/Pure/ProofGeneral/proof_general_pgip.ML	Sun Jan 06 15:57:54 2008 +0100
@@ -305,8 +305,7 @@
    else if name = Markup.typN      then typ_markup markup
    else if name = Markup.termN     then term_markup markup
    else if name = Markup.keywordN  then keyword_markup markup
-   else if name = Markup.commandN  then command_markup markup 
-   else if name = Markup.promptN   then prompt_markup markup *)
+   else if name = Markup.commandN  then command_markup markup*)
    else if name = Markup.stateN    then state_markup
 (* else if name = Markup.subgoalN  then subgoal_markup () *)
    else ("", "");