-module(geometry).

 -export([area/1]).

 area({rectangle,Width,Height})->

     Width*Height;

 area({square,X}) ->

     X*X;

 area({circle,R}) ->

     3.14159*R*R.

进入distel菜单，选择start new shell，执行c(geometry,[debug_info]).

编译成功以后，c-c c-d L重新载入erl脚本

c-c c-d i进入交互模式，如果提示node，就输入在emacs的distel配置里面的这个(setq inferior-erlang-machine-options '("-sname" "localhost"))

c-x space，在行上设置断点，应该能看到红色的行了

最后在shell里面直接调用，例如我们的geometry:area({circle,123}).

c(xxx,[debug_info]).

make:all([debug_info]).

debugger:start().

im().