Mercurial > emacs
comparison lisp/cus-start.el @ 83366:5a8e49e5b281
Fix bootstrap error.
* lisp/cus-start.el: Remove bogus window-system reference from GTK test.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-406
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Sat, 10 Sep 2005 23:00:15 +0000 |
parents | 4b9f048f9a7e |
children | 08b4dd6a6e87 |
comparison
equal
deleted
inserted
replaced
83365:98c880698d66 | 83366:5a8e49e5b281 |
---|---|
364 ((string-match "\\`dos-" (symbol-name symbol)) | 364 ((string-match "\\`dos-" (symbol-name symbol)) |
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 (featurep 'gtk)) |
370 (and window-system | |
371 (not (eq window-system 'pc)) | |
372 (not (eq system-type 'windows-nt))))) | |
373 ((string-match "\\`x-" (symbol-name symbol)) | 370 ((string-match "\\`x-" (symbol-name symbol)) |
374 (fboundp 'x-create-frame)) | 371 (fboundp 'x-create-frame)) |
375 ((string-match "selection" (symbol-name symbol)) | 372 ((string-match "selection" (symbol-name symbol)) |
376 (fboundp 'x-selection-exists-p)) | 373 (fboundp 'x-selection-exists-p)) |
377 ((string-match "fringe" (symbol-name symbol)) | 374 ((string-match "fringe" (symbol-name symbol)) |