# HG changeset patch
# User wenzelm
# Date 1125934702 -7200
# Node ID c5b280a52a6726f99f1dd2a5664f20a9b578db7e
# Parent  8bf9126d8dcd880694b361d903ec82f309e5f5fc
chapter/section/subsection/subsubsection/text: optional locale specification;

diff -r 8bf9126d8dcd -r c5b280a52a67 src/Pure/Isar/isar_syn.ML
--- a/src/Pure/Isar/isar_syn.ML	Mon Sep 05 17:38:21 2005 +0200
+++ b/src/Pure/Isar/isar_syn.ML	Mon Sep 05 17:38:22 2005 +0200
@@ -35,24 +35,24 @@
   (P.position P.text >> IsarCmd.add_header);
 
 val chapterP = OuterSyntax.markup_command IsarOutput.Markup "chapter" "chapter heading"
-  K.thy_heading (P.position P.text >> IsarCmd.add_chapter);
+  K.thy_heading (P.opt_locale_target -- P.position P.text >> IsarCmd.add_chapter);
 
 val sectionP = OuterSyntax.markup_command IsarOutput.Markup "section" "section heading"
-  K.thy_heading (P.position P.text >> IsarCmd.add_section);
+  K.thy_heading (P.opt_locale_target -- P.position P.text >> IsarCmd.add_section);
 
 val subsectionP = OuterSyntax.markup_command IsarOutput.Markup "subsection" "subsection heading"
-  K.thy_heading (P.position P.text >> IsarCmd.add_subsection);
+  K.thy_heading (P.opt_locale_target -- P.position P.text >> IsarCmd.add_subsection);
 
 val subsubsectionP =
   OuterSyntax.markup_command IsarOutput.Markup "subsubsection" "subsubsection heading"
-  K.thy_heading (P.position P.text >> IsarCmd.add_subsubsection);
+  K.thy_heading (P.opt_locale_target -- P.position P.text >> IsarCmd.add_subsubsection);
 
 val textP = OuterSyntax.markup_command IsarOutput.MarkupEnv "text" "formal comment (theory)"
-  K.thy_decl (P.position P.text >> IsarCmd.add_text);
+  K.thy_decl (P.opt_locale_target -- P.position P.text >> IsarCmd.add_text);
 
 val text_rawP = OuterSyntax.markup_command IsarOutput.Verbatim "text_raw"
-  "raw document preparation text" K.thy_decl
-  (P.position P.text >> IsarCmd.add_text_raw);
+  "raw document preparation text"
+  K.thy_decl (P.position P.text >> IsarCmd.add_text_raw);
 
 val sectP = OuterSyntax.markup_command IsarOutput.Markup "sect" "formal comment (proof)"
   (K.tag_proof K.prf_heading) (P.position P.text >> IsarCmd.add_sect);