通过函数体评价

Question

我受的Function以下行为疑惑不解：

In[1]:= InlineCellInMessage=Function[expr,DisplayForm[Cell[BoxData[MakeBoxes[expr,StandardForm]],"Input"]],{HoldAllComplete}] 
Out[1]= Function[expr,MakeBoxes[expr,StandardForm]] 

我预计在输出看到里面Function未评估的代码，如以下情况：

In[2]:= InlineCellInMessage=Function[x,x+1+1] 
Out[2]= Function[x,x+1+1] 

但我在输出中获得内联单元。为什么会发生？

Answer 1

这是FrontEnd渲染的结果。试想一下：

InlineCellInMessage = 
    Function[expr,DisplayForm[Cell[BoxData[MakeBoxes[expr,StandardForm]],"Input"]],{HoldAllComplete}] 

InlineCellInMessage // InputForm 

输出：

InputForm[Function[expr, DisplayForm[Cell[BoxData[MakeBoxes[expr, StandardForm]], "Input"]], {HoldAll.Complete}]] 

而且，在此使用参数HoldAllComplete影响未来输入功能，而不是创造功能本身。如果你想Function本身具有HoldAllComplete您需要：

SetAttributes[Function, HoldAllComplete]