# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 764989321 0
# Node ID de72ddd5a3c07e81a64109c9d107d81cd71cd699
# Parent  6b5eb178d1dbfdc4d748689b0c801e929c9794c4
Check for existence of windowing system.

diff -r 6b5eb178d1db -r de72ddd5a3c0 lisp/font-lock.el
--- a/lisp/font-lock.el	Wed Mar 30 00:50:02 1994 +0000
+++ b/lisp/font-lock.el	Wed Mar 30 01:02:01 1994 +0000
@@ -54,6 +54,9 @@
 
 ;;; Code:
 
+(or window-system
+    (error "Can't fontify on an ASCII terminal"))
+
 (or (internal-find-face 'underline)
     (copy-face 'default 'underline))
 (set-face-underline-p 'underline t)