From b948abc811f0911a02e63ee55ad36504ddd981d6 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 9 Sep 2005 16:24:25 +0000 Subject: [PATCH] Fix last change. --- lisp/cus-start.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/cus-start.el b/lisp/cus-start.el index c09e3152376..d8ca2a77b58 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -367,7 +367,8 @@ since it could result in memory overflow and make Emacs crash." (eq system-type 'windows-nt)) ((string-match "\\`x-.*gtk" (symbol-name symbol)) (or (boundp 'gtk) - (and (display-graphic-p) + (and window-system + (not (eq window-system 'pc)) (not (eq system-type 'windows-nt))))) ((string-match "\\`x-" (symbol-name symbol)) (fboundp 'x-create-frame)) -- 2.39.5