comparison lisp/cus-start.el @ 65403:4b9f048f9a7e

Fix last change.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 09 Sep 2005 16:24:25 +0000
parents 27b65d33884f
children b3ed9c9b7a4f 5a8e49e5b281 10fe5fadaf89
comparison
equal deleted inserted replaced
65402:873aa2fb049c 65403:4b9f048f9a7e
365 (eq system-type 'ms-dos)) 365 (eq system-type 'ms-dos))
366 ((string-match "\\`w32-" (symbol-name symbol)) 366 ((string-match "\\`w32-" (symbol-name symbol))
367 (eq system-type 'windows-nt)) 367 (eq system-type 'windows-nt))
368 ((string-match "\\`x-.*gtk" (symbol-name symbol)) 368 ((string-match "\\`x-.*gtk" (symbol-name symbol))
369 (or (boundp 'gtk) 369 (or (boundp 'gtk)
370 (and (display-graphic-p) 370 (and window-system
371 (not (eq window-system 'pc))
371 (not (eq system-type 'windows-nt))))) 372 (not (eq system-type 'windows-nt)))))
372 ((string-match "\\`x-" (symbol-name symbol)) 373 ((string-match "\\`x-" (symbol-name symbol))
373 (fboundp 'x-create-frame)) 374 (fboundp 'x-create-frame))
374 ((string-match "selection" (symbol-name symbol)) 375 ((string-match "selection" (symbol-name symbol))
375 (fboundp 'x-selection-exists-p)) 376 (fboundp 'x-selection-exists-p))