diff options
| author | Thomas Kleymann | 1998-09-10 15:10:49 +0000 |
|---|---|---|
| committer | Thomas Kleymann | 1998-09-10 15:10:49 +0000 |
| commit | 98829bd6731bf61a6ef92893c563ed4c68e0fd12 (patch) | |
| tree | 39a38ea86d4e1f5b8aad7ebb04046224cabdc909 | |
| parent | ce89a51140af9b7bacaedf90dfeebc7313b4eea9 (diff) | |
fixed implementation of `proof-have-color'
| -rw-r--r-- | generic/proof-syntax.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/proof-syntax.el b/generic/proof-syntax.el index 1d454523..651c3578 100644 --- a/generic/proof-syntax.el +++ b/generic/proof-syntax.el @@ -41,7 +41,10 @@ ;; FIXME 2: use defface here (defun proof-have-color () - ()) + "Do we have support for colour?" + (or (and (fboundp 'device-class) + (eq (device-class (frame-device)) 'color)) + (and (fboundp 'x-display-color-p) (x-display-color-p)))) (defvar font-lock-declaration-name-face (progn |