在elisp中测试平台？

Question

我在linux机器和OS X机器之间共享我的emacs配置文件。但是，当我在配置中为Emacs.app定义了一种特定的字体时，配置就会中断，这在linux上是不可用的。

有没有一种方法可以测试当前的平台，然后执行或跳过OS特定的指令？

Answer 1

elisp变量system-type就是您想要的。这样你就可以写

(if (eq system-type 'darwin)
    (your-macosx-specific-configuration))

Answer 2

另一种需要考虑的可能性是直接测试字体

在我的.emacs文件中，我有以下内容：

(let ((prefered-fonts '("-apple-espresso mono-medium-r-normal--0-0-0-0-m-0-iso10646-1")))
  (dolist (font prefered-fonts)
    (if (and (functionp 'x-list-fonts) (x-list-fonts font))
      (progn
        (add-to-list 'initial-frame-alist (cons 'font font))
        (add-to-list 'default-frame-alist (cons 'font font))))))

即使是在OS的控制台emacs中，这也是有效的，只是对系统进行测试是无法捕捉到的