.#& - Max_Num_Lines+" 32°- Max_Num_Linesý, History_File1 sys$login:jed.hisþ / custom_variable,* " fp+ýý & getcwdý , History_Fileþ - path_basenameþ + path_concat! rþ % fopen°" fp " fp $ NULLA.ý , History_File! rþ % fopen°" fp/c " fp $ NULLA.w/c*
 % lines+ý " fpþ * fgetslines°% lines % lines $ NULLA.w/cý + String_Type}+ strtrim_end % lines" \nþ ) array_map°% linesý % linesþ & length! 1?.ýýý! 1âá % lines!þ . mini_set_lines/cy, history_load,* % lines+ý $ NULLþ . mini_get_lines°% lines*
 ) not_blank+* " fp+ $ NULL°" fp* $ file " st+ & _NARGS.°$ fileý $ file! wþ % fopen°" fp " fp $ NULLA.ý@ Unable to open `%s' for writing. $ fileþ & verror" -1w/c/.ý & getcwdý , History_Fileþ - path_basenameþ + path_concat°$ fileý $ fileþ ) stat_file
°" st " st $ NULLB.ý $ file! wþ % fopen°" fp/c " fp $ NULLA. , History_File°$ fileý $ file! wþ % fopen°" fp " fp $ NULLA.ý@ Unable to open `%s' for writing. $ fileþ & verror" -1w/c/c/dý $ file# 384þ % chmodPý " fp
P %% JED: File generated by 'history_save' on %s\n $ timeþ ' fprintfPýý , Integer_Type}& strlen % linesþ ) array_map! 0?þ % where°) not_blanký ) not_blank % lines!ýþ.* $ line+°$ lineý " fp$ %s\n $ lineþ ' fprintfP/ƒ! 0wy, history_save,* $ file " st+
ý6 Save local history as:  ý , History_Fileþ - path_basename# 102þ 4 read_with_completion°$ fileý $ fileþ ) stat_file°" st " st $ NULLB.* " yn+ý& File ` $ file9> ' already exists, overwrite it9þ * get_y_or_n°" yn " yn! 0>.ý
< history_local_save canceled.þ % error/c/cý $ fileþ , history_save.ýý5 History saved in '%s' $ fileþ ' sprintfþ % flush/by2 history_local_save, , history_saveP! 1w‚4 save_history_at_exitý/ _jed_exit_hooks}4 save_history_at_exitþ + add_to_hook