Commit cb488374 authored by MARCHE Claude's avatar MARCHE Claude
Browse files

send the file contents after adding a new file to the session

parent 354f4c0a
......@@ -938,7 +938,8 @@ end
let b = add_file cont f in
if b then
let file = get_file cont.controller_session fn in
init_and_send_file file
init_and_send_file file;
read_and_send (file_name file)
end
else
P.notify (Message (Open_File_Error ("File not found: " ^ f)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment