Extension of s[arg] :> s*arg to the case s = I

Author: phil-ramsden

evaluate.m

@@ -167,8 +167,9 @@
 
 StandardizeExpression[expr_, OptionsPattern[]]:=Module[{output,suppress},
 	suppress = OptionValue[SuppressIndependentVariable];
-    output = expr/.activeFunctionRules;
-	output = output/.s_Symbol[arg_Plus]/;Not[MemberQ[Attributes[s], NumericFunction]] :> s*arg;
+         output=expr/.activeFunctionRules;
+	output = output/.s:_Symbol[arg_Plus]/;Not[MemberQ[Attributes[s], NumericFunction]] :> s*arg;
+	output = output/.I[arg_]:>I*arg;
 	output = output/.{
 		dx_^a_. dy_^b_.:>
 			(ToExpression[StringTake[ToString[dx],{2}]]'[StringTake[ToString[dy],{2}]])^a/;

preview.m

@@ -134,8 +134,9 @@
 
 StandardizeExpression[expr_, OptionsPattern[]]:=Module[{output,suppress},
 	suppress = OptionValue[SuppressIndependentVariable];
-    output = expr/.activeFunctionRules;
-	output = output/.s_Symbol[arg_Plus]/;Not[MemberQ[Attributes[s], NumericFunction]] :> s*arg;
+         output=expr/.activeFunctionRules;
+	output = output/.s:_Symbol[arg_Plus]/;Not[MemberQ[Attributes[s], NumericFunction]] :> s*arg;
+	output = output/.I[arg_]:>I*arg;
 	output = output/.{
 		dx_^a_. dy_^b_.:>
 			(ToExpression[StringTake[ToString[dx],{2}]]'[StringTake[ToString[dy],{2}]])^a/;