如何在Emacs Lisp中检查Xorg是否正在运行？

Question

我在我的配置文件中有一些内容，只有在Xorg下才能正常工作，否则会出现错误。

为了解决这个问题，我需要知道是否正在运行Xorg。我该如何检查呢？

(defun nCdy-mode ()
    ;; TOOD: Add Xorg check
    ;(tool-bar-mode nil)
    (menu-bar-mode nil) ; TODO: Add hotkey
    ;(scroll-bar-mode nil)
    (setq inhibit-splash-screen t)

    (setq standard-indent 4)
    ;;(mouse-wheel-mode t)
    (setq backup-directory-alist (quote ((".*" . "~/.emacs_backups/"))))

    ;;TODO: Add Xorg check
    ;(require 'nyan-mode)
    ;(nyan-mode)
    ;(nyan-start-animation)
    ;;nyanyanyanyanyanyanyanyanyanyan

谢谢你

- cnd

Answer 1

(case window-system
  (x '"X11 running")
  (otherwise "No X11"))

- Jürgen Hötzel

Answer 2

尽管Jürgen是正确的，你可能想要测试window-system的值，但请注意，由于其客户端/服务器机制，单个Emacs实例可以有多个框架，其中一些在图形终端上（例如XOrg），而另一些在文本终端上。

因此，您应该考虑何时何地测试window-system。有关如何处理此问题，请参见类似问题的此答案。

- sanityinc