Unified · Split
| @@ -345,14 +345,15 @@ module S = struct · 344 unmodified lines | ||
| 345 | 345 | let uioh : uioh ref = ref nouioh |
| 346 | 346 | let outlines : outline array ref = ref [||] |
| 347 | 347 | let bookmarks : outline list ref = ref [] |
| 348 | − let geomcmds : (string * ((string * (unit -> unit)) list)) ref = ref (E.s, []) | |
| 348 | + let geomcmds : (string * ((string * (unit -> unit)) list)) ref | |
| 349 | + = ref (E.s, []) | |
| 349 | 350 | let memused : memsize ref = ref 0 |
| 350 | 351 | let gen : gen ref = ref 0 |
| 351 | 352 | let autoscroll : int option ref = ref None |
| 352 | 353 | let help : helpitem array ref = ref E.a |
| 353 | 354 | let docinfo : (int * string) list ref = ref [] |
| 354 | − let hists : hists ref = | |
| 355 | − ref { pat = cbnew 10 E.s; pag = cbnew 10 E.s; sel = cbnew 10 E.s; } | |
| 355 | + let hists : hists ref | |
| 356 | + = ref { pat = cbnew 10 E.s; pag = cbnew 10 E.s; sel = cbnew 10 E.s; } | |
| 356 | 357 | let prevzoom = ref (1.0, 0) |
| 357 | 358 | let progress = ref ~-.1.0 |
| 358 | 359 | let mpos = ref (-1, -1) |