comparison lisp/cus-start.el @ 85209:c4472165ba35

* cus-start.el (all): Use the same test as the 22.2 branch.
author Dan Nicolaescu <dann@ics.uci.edu>
date Fri, 12 Oct 2007 23:40:42 +0000
parents 5039706521c9
children 7f1336541cb1 d38543a1c0f9
comparison
equal deleted inserted replaced
85208:8d5ae38b1b47 85209:c4472165ba35
431 ((string-match "\\`dos-" (symbol-name symbol)) 431 ((string-match "\\`dos-" (symbol-name symbol))
432 (eq system-type 'ms-dos)) 432 (eq system-type 'ms-dos))
433 ((string-match "\\`w32-" (symbol-name symbol)) 433 ((string-match "\\`w32-" (symbol-name symbol))
434 (eq system-type 'windows-nt)) 434 (eq system-type 'windows-nt))
435 ((string-match "\\`mac-" (symbol-name symbol)) 435 ((string-match "\\`mac-" (symbol-name symbol))
436 (or (eq system-type 'mac) (eq system-type 'darwin))) 436 (eq window-system 'mac))
437 ((string-match "\\`x-.*gtk" (symbol-name symbol)) 437 ((string-match "\\`x-.*gtk" (symbol-name symbol))
438 (featurep 'gtk)) 438 (featurep 'gtk))
439 ((string-match "\\`x-" (symbol-name symbol)) 439 ((string-match "\\`x-" (symbol-name symbol))
440 (fboundp 'x-create-frame)) 440 (fboundp 'x-create-frame))
441 ((string-match "selection" (symbol-name symbol)) 441 ((string-match "selection" (symbol-name symbol))