haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Print protocol-version in emacs mode

This commit is contained in:
Rudi Grinberg 2018-02-28 16:26:19 +07:00
parent 27ae188261
commit c36f20bf12
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/lib/uTop_main.ml
View File

@ -1320,10 +1320,13 @@ let load_inputrc () =
Lwt_log.error_f "error in key bindings file %S, line %d: %s" fname line msg Lwt_log.error_f "error in key bindings file %S, line %d: %s" fname line msg
| exn -> Lwt.fail exn) | exn -> Lwt.fail exn)
let protocol_version = 1
let main_aux ~initial_env = let main_aux ~initial_env =
Arg.parse args file_argument usage; Arg.parse args file_argument usage;
if not (prepare ()) then exit 2; if not (prepare ()) then exit 2;
if !emacs_mode then begin if !emacs_mode then begin
Printf.printf "protocol-version:%d\n%!" protocol_version;
UTop_private.set_ui UTop_private.Emacs; UTop_private.set_ui UTop_private.Emacs;
let module Emacs = Emacs (struct end) in let module Emacs = Emacs (struct end) in
Printf.printf "Welcome to utop version %s (using OCaml version %s)!\n\n%!" UTop.version Sys.ocaml_version; Printf.printf "Welcome to utop version %s (using OCaml version %s)!\n\n%!" UTop.version Sys.ocaml_version;