This is the result of FrontEnd rendering. Consider:
InlineCellInMessage = Function[expr,DisplayForm[Cell[BoxData[MakeBoxes[expr,StandardForm]],"Input"]],{HoldAllComplete}] InlineCellInMessage // InputForm
Output:
InputForm[Function[expr, DisplayForm[Cell[BoxData[MakeBoxes[expr, StandardForm]], "Input"]], {HoldAll.Complete}]]
In addition, the HoldAllComplete parameter affects the future input of the function, and not the creation of the function itself. If you want Function have a HoldAllComplete , you need to:
SetAttributes[Function, HoldAllComplete]
Mr. Wizard
source share