anchor.diff:      get_one2({ok, 1, Rest}, 1, Sum, St);
   get_one1([$-|Rest], Sum, St) ->
       get_one2({ok, 1, Rest}, -1, Sum, St);
  -get_one1(Cmd, false, St) ->
  +get_one1(_Cmd, false, _St) ->
       false;
   get_one1(Cmd, Sum, St) ->
       {ok, Sum, Cmd, St}.
  
positive.code: 
  %% (.,.)m - move lines
  
  move_command(Cmd, [First, Last], St) ->
      error(not_implemented).
  
  %% (.,.)t - copy lines
  
  transpose_command(Cmd, [First, Last], St) ->
      error(not_implemented).
  
  %% (.,.)n - print lines with line numbers
  
negative.code: -author('bjorn@strider').
  
  -export([edit/0, edit/1, file/1, cmd_line/1]).
  
  -compile({no_auto_import,[error/1]}).
  
  -record(state, {dot = 0,			% Line number of dot.
  		upto_dot = [],			% Lines up to dot (reversed).
  