Mercurial > emacs
comparison lisp/cus-start.el @ 83424:e5cd70e447a8
Fix error during bootstrap.
* lisp/cus-start.el: Fix compilation error.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-464
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Thu, 29 Dec 2005 01:18:49 +0000 |
| parents | b64b7e867d0a |
| children | ec395f552d45 |
comparison
equal
deleted
inserted
replaced
| 83423:b64b7e867d0a | 83424:e5cd70e447a8 |
|---|---|
| 392 ((string-match "\\`dos-" (symbol-name symbol)) | 392 ((string-match "\\`dos-" (symbol-name symbol)) |
| 393 (eq system-type 'ms-dos)) | 393 (eq system-type 'ms-dos)) |
| 394 ((string-match "\\`w32-" (symbol-name symbol)) | 394 ((string-match "\\`w32-" (symbol-name symbol)) |
| 395 (eq system-type 'windows-nt)) | 395 (eq system-type 'windows-nt)) |
| 396 ((string-match "\\`mac-" (symbol-name symbol)) | 396 ((string-match "\\`mac-" (symbol-name symbol)) |
| 397 (eq window-system 'mac)) | 397 (or (eq system-type 'mac) (eq system-type 'darwin))) |
| 398 ((string-match "\\`x-.*gtk" (symbol-name symbol)) | 398 ((string-match "\\`x-.*gtk" (symbol-name symbol)) |
| 399 (featurep 'gtk)) | 399 (featurep 'gtk)) |
| 400 ((string-match "\\`x-" (symbol-name symbol)) | 400 ((string-match "\\`x-" (symbol-name symbol)) |
| 401 (fboundp 'x-create-frame)) | 401 (fboundp 'x-create-frame)) |
| 402 ((string-match "selection" (symbol-name symbol)) | 402 ((string-match "selection" (symbol-name symbol)) |