如何在elisp中确定操作系统？

如何以编程方式确定ELisp在哪个OS Emacs下运行？

我想.emacs根据操作系统运行不同的代码。

该system-type变量：

system-type is a variable defined in `C source code'.
Its value is darwin

Documentation:
Value is symbol indicating type of operating system you are using.
Special values:
  `gnu'         compiled for a GNU Hurd system.
  `gnu/linux'   compiled for a GNU/Linux system.
  `darwin'      compiled for Darwin (GNU-Darwin, Mac OS X, ...).
  `ms-dos'      compiled as an MS-DOS application.
  `windows-nt'  compiled as a native W32 application.
  `cygwin'      compiled using the Cygwin library.
Anything else indicates some sort of Unix system.

对于刚接触elisp的人们，可以使用以下示例：

(if (eq system-type 'darwin)
  ; something for OS X if true
  ; optional something if not
)

我创建了一个简单的宏，可以轻松地根据系统类型运行代码：

(defmacro with-system (type &rest body)
  "Evaluate BODY if `system-type' equals TYPE."
  (declare (indent defun))
  `(when (eq system-type ',type)
     ,@body))

(with-system gnu/linux
  (message "Free as in Beer")
  (message "Free as in Freedom!"))

在.emacs中，不仅存在system-type，而且还存在window-system变量。当您要在仅x选项，终端或macos设置之间进行选择时，这很有用。

现在也有Linux的子系统的基于Windows（Windows 10下的bash），其中system-type为gnu/linux。要检测此系统类型，请使用：

(if
    (string-match "Microsoft"
         (with-temp-buffer (shell-command "uname -r" t)
                           (goto-char (point-max))
                           (delete-char -1)
                           (buffer-string)))
    (message "Running under Linux subsystem for Windows")
    (message "Not running under Linux subsystem for Windows")
  )

多数人已经回答了这个问题，但是对于那些感兴趣的人，我只是在FreeBSD上进行了测试，因此报告的值为“ berkeley-unix”。

system-configuration如果要针对构建系统中的差异进行调整，则还有（至少在24-26版中）。但是，此变量的文档没有像变量的文档那样描述它可能包含的可能值 system-type。