diff options
| author | Karl Heuer | 1994-03-30 01:02:01 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-03-30 01:02:01 +0000 |
| commit | 7772e660eb216bc38b0b70a7c4d2624d9cf2a99c (patch) | |
| tree | c1222d50673467d473f594c7e4b9072667589757 | |
| parent | cf4138adefc2a82ddda665abd0c2a94840718f92 (diff) | |
| download | emacs-7772e660eb216bc38b0b70a7c4d2624d9cf2a99c.tar.gz emacs-7772e660eb216bc38b0b70a7c4d2624d9cf2a99c.zip | |
Check for existence of windowing system.
| -rw-r--r-- | lisp/font-lock.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index eedb805c9bb..e2499856f43 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el | |||
| @@ -54,6 +54,9 @@ | |||
| 54 | 54 | ||
| 55 | ;;; Code: | 55 | ;;; Code: |
| 56 | 56 | ||
| 57 | (or window-system | ||
| 58 | (error "Can't fontify on an ASCII terminal")) | ||
| 59 | |||
| 57 | (or (internal-find-face 'underline) | 60 | (or (internal-find-face 'underline) |
| 58 | (copy-face 'default 'underline)) | 61 | (copy-face 'default 'underline)) |
| 59 | (set-face-underline-p 'underline t) | 62 | (set-face-underline-p 'underline t) |