如何在Edwin中以编程方式调用MIT函数？

Question

我在麻省理工学院使用Edwin编辑器，因为默认字体大小太小，所以我做了M-x set-font，然后选择

-adobe-courier-bold-r-normal--24-240-75-75-m-150-iso8859-1

使字体变大。这很好，但当我试着

(set-font "-adobe-courier-bold-r-normal--24-240-75-75-m-150-iso8859-1")

在我的~/.edwin中，它抱怨Unbound variable: set-font。

在emacs中，来自M-x的交互式函数通常可以在Elisp中以编程方式直接调用，但在这里显然并非如此。我试着阅读更多关于如何定制Edwin的文章，方法是查看带有“信息麻省理工学院-方案-用户”的手册，但是Edwin一章特别指出

本手册不讨论Edwin的自定义。

如何以编程方式调用set-font？

Answer 1

显然，Edwin命令不是过程，不能在Scheme代码中直接调用。但是，一个简单的修复可以实现这一点，只需用ref-command宏包装它：

`((ref-command set-font) "-adobe-courier-bold-r-normal--24-240-75-75-m-150-iso8859-1")`

来源：与这个问题完全相同的1997年邮件列表线程

Edwin命令不是过程(与GNU Emacs不同)。Edwin命令是一个具有不寻常名称的特殊对象。如果要从程序中调用命令，则必须使用REF-命令宏。例如，启动一个shell缓冲区，就像键入“M”一样：((ref-command shell) #t)