Adding an empty mli allows us to catch unused functions
Such as gotoanchor here.
This commit is contained in:
parent
89d25cacb2
commit
337cf5b3c4
1
main.ml
1
main.ml
|
@ -699,7 +699,6 @@ let getanchory (n, top, dtop) =
|
|||
else y + truncate (top*.float h -. dtop*.float conf.interpagespace)
|
||||
;;
|
||||
|
||||
let gotoanchor anchor = gotoxy state.x (getanchory anchor);;
|
||||
let addnav () = getanchor () |> cbput state.hists.nav;;
|
||||
let addnavnorc () = getanchor () |> cbput_dont_update_rc state.hists.nav;;
|
||||
|
||||
|
|
Loading…
Reference in New Issue