# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1126283065 0
# Node ID 4b9f048f9a7eaeaab4b10a3729fded7c742f7997
# Parent  873aa2fb049cc1597399fb5c904978cad989cc8f
Fix last change.

diff -r 873aa2fb049c -r 4b9f048f9a7e lisp/cus-start.el
--- a/lisp/cus-start.el	Fri Sep 09 16:22:11 2005 +0000
+++ b/lisp/cus-start.el	Fri Sep 09 16:24:25 2005 +0000
@@ -367,7 +367,8 @@
 		       (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))