anchor.diff:      show('$#erlang-history-invalid-file',
            "Shell history expects to be able to use the file ~ts "
            "which currently exists and is not a file usable for "
  -         "history logging purposes. History logging will be "
  -         "disabled.~n", [FileName]).
  +         "history logging purposes.~n", [FileName]).
   
   show_unexpected_warning({M,F,A}, Term) ->
       show('$#erlang-history-unexpected-return',
  
positive.code:     case disk_log:change_size(Name, NewSize) of
          ok ->
              show('$#erlang-history-resize-result',
                   "ok~n", []);
          {error, {new_size_too_small, _, _}} -> % cannot happen
              show('$#erlang-history-resize-result',
                   "failed (new size is too small)~n", []),
              disable_history();
          {error, Reason} ->
              show('$#erlang-history-resize-result',
                   "failed (~p)~n", [Reason]),
              disable_history()
      end,
      _ = disk_log:close(?LOG_NAME),
  
negative.code:     show('$#erlang-history-invalid-header',
           "Shell history expects to be able to use the log files "
           "which currently have unknown headers (~p) and may belong to "
           "another mechanism.~n",
           [Term]);
  handle_open_error({file_error, FileName, Reason}) ->
      show('$#erlang-history-file-error',
           "Error handling file ~ts. Reason: ~p~n",
           [FileName, Reason]);
  handle_open_error(Err) ->
      show_unexpected_warning({disk_log, open, 1}, Err).
  