anchor.diff:  			 Ext=="html", AppS/=this ->
   	    File;
   	[File, Ext, Marker0] ->
  -	    %% Here is an awkward solution to an awkward problem
  -	    %% The marker automatically inserted at each function 
  -	    %% does not seem to work for EDoc generated ERLREFs.
  -	    %% So if the referenced marker is in an ERLREF generated
  -	    %% by EDoc, keep it "as is", ie "function-arity".
  -	    %% If the referenced marker is NOT in an ERLREF generated
  -	    %% by EDoc, the marker should be on the format
  -	    %% "function/arity".
  -	    %% The awkward part of the solution is to decide wheather
  -	    %% the ERLREF is generated by EDoc or not: Here we make
  -	    %% the decision based on which application the module
  -	    %% belongs to -- which is ok when the module was written
  -	    %% but probably not in the future...
  -	    EDocApps = ["edoc","hipe","syntax_tools","xmerl"],
  -	    IsEDocGenerated = lists:member(AppS, EDocApps),
  -	    Marker = if
  -			 %% The marker is in a file in *this*
  -			 %% application (which documentation obviously
  -			 %% is generated by EDoc), or it is in a file
  -			 %% in an application which documentation
  -			 %% is assumed to be generated by EDoc
  -			 AppS==this; IsEDocGenerated ->
  -			     Marker0;
  -
  -			 %% The marker is in a file in an application
  -			 %% which documentation is assumed NOT to be
  -			 %% generated by EDoc
  -			 true ->
  -			     case split(Marker0, "-") of
  -				 [Func,Arity] ->
  -                                     try list_to_integer(Arity) of
  -                                         _ ->
  -                                             Func++"/"++Arity
  -                                     catch
  -                                         _:_ ->
  -                                             %% This is "type-"<a-type>.
  -                                             Marker0
  -                                     end;
  -				 _ ->
  -				     Marker0
  -			     end
  -		     end,
  +	    Marker = make_mfa_anchor(Marker0),
   	    if
   		%% Ignore file extension in file reference if it either
   		%% is ".xml" or if it is ".html" but AppS/=this, that
  
positive.code:  				    case get_attrval(href, E) of
   					"" ->
   					    {c,Expr1};
   					Ref ->
   					    {seealso, [{marker, Ref}], Expr1}
   				    end
  			    end,
  
negative.code: 		       attributes = Attrs}.
  
  %%--Misc help functions used by otp_xmlify/1 et al---------------------
  
  %% make_mfa_anchor(Marker) -> NewMarker
  %%  Returns the anchor in func/arity format if the heuristic guesses that
  %%  the anchor points to a func/arity
  make_mfa_anchor(Marker) ->
      case split(Marker,"-") of
          [Func,Arity] ->
              try list_to_integer(Arity) of
                  _ ->
                      Func ++ "/" ++ Arity
              catch _:_ ->
                      Marker
              end;
          _ ->
              Marker
      end.
  
  %% find_next(Tag, Es) -> {Es1, Es2}
  %% Returns {Es1, Es2} where Es1 is the list of all elements up to (but
  