如何检查Xorg是否在emacs lisp中运行？

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

谢谢

Answer 1

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

Answer 2

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

因此，您应该考虑测试window-system位置和时间。 有关如何处理此问题的更多信息，请参阅此类问题的答案 。