Mercurial > emacs
comparison lisp/cus-start.el @ 83364:46dfd959d88a
Merged in changes from CVS trunk.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-404
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Fri, 09 Sep 2005 20:52:13 +0000 |
| parents | 4b9f048f9a7e |
| children | b3ed9c9b7a4f 5a8e49e5b281 10fe5fadaf89 |
comparison
equal
deleted
inserted
replaced
| 83363:3d2bc61f2da0 | 83364:46dfd959d88a |
|---|---|
| 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) (not (eq system-type 'windows-nt)))) | 369 (or (boundp 'gtk) |
| 370 (and window-system | |
| 371 (not (eq window-system 'pc)) | |
| 372 (not (eq system-type 'windows-nt))))) | |
| 370 ((string-match "\\`x-" (symbol-name symbol)) | 373 ((string-match "\\`x-" (symbol-name symbol)) |
| 371 (fboundp 'x-create-frame)) | 374 (fboundp 'x-create-frame)) |
| 375 ((string-match "selection" (symbol-name symbol)) | |
| 376 (fboundp 'x-selection-exists-p)) | |
| 377 ((string-match "fringe" (symbol-name symbol)) | |
| 378 (fboundp 'define-fringe-bitmap)) | |
| 372 (t t)))) | 379 (t t)))) |
| 373 (if (not (boundp symbol)) | 380 (if (not (boundp symbol)) |
| 374 ;; If variables are removed from C code, give an error here! | 381 ;; If variables are removed from C code, give an error here! |
| 375 (and native-p | 382 (and native-p |
| 376 (message "Note, built-in variable `%S' not bound" symbol)) | 383 (message "Note, built-in variable `%S' not bound" symbol)) |