method display_mode = let mode = match file#mode_name with None -> "(no mode)" | Some name -> Printf.sprintf "(%s)" name in wl_mode#set_text (Ed_misc.to_utf8 mode)