src/Pure/Syntax/pretty.ML
changeset 3738 27f7473d029a
parent 2695 871b69a4b78f
child 3741 daa5ac720678
equal deleted inserted replaced
3737:3ea2f3b5e705 3738:27f7473d029a
    94      pos = pos + len};
    94      pos = pos + len};
    95 
    95 
    96 
    96 
    97 (*** Formatting ***)
    97 (*** Formatting ***)
    98 
    98 
    99 val margin      = ref 80        (*right margin, or page width*)
    99 val margin      = ref 76        (*right margin, or page width*)
   100 and breakgain   = ref 4         (*minimum added space required of a break*)
   100 and breakgain   = ref 4         (*minimum added space required of a break*)
   101 and emergencypos = ref 40;      (*position too far to right*)
   101 and emergencypos = ref 40;      (*position too far to right*)
   102 
   102 
   103 fun setmargin m =
   103 fun setmargin m =
   104     (margin     := m;
   104     (margin     := m;