# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1003398902 0
# Node ID 2dee495c21db7de25c7643d6410f108451c60398
# Parent  3914e6d2452fd193844c743b6375030ebf0c1b3b
(hilit-lookup-face-create): Call
set-face-font only if display-graphic-p.
(toplevel): Remove references to window-system.

diff -r 3914e6d2452f -r 2dee495c21db lisp/obsolete/hilit19.el
--- a/lisp/obsolete/hilit19.el	Thu Oct 18 09:50:37 2001 +0000
+++ b/lisp/obsolete/hilit19.el	Thu Oct 18 09:55:02 2001 +0000
@@ -1,6 +1,6 @@
 ;;; hilit19.el --- customizable highlighting for Emacs 19
 
-;; Copyright (c) 1993, 1994 Free Software Foundation, Inc.
+;; Copyright (c) 1993, 1994, 2001 Free Software Foundation, Inc.
 
 ;; Author:   Jonathan Stigelman <stig@hackvan.com>
 ;; Maintainer: FSF
@@ -635,7 +635,8 @@
 	  ;; we wanted, but ignore errors making the face bold or italic
 	  ;; if the font isn't available, there's nothing to do about it...
 	  (progn
-	    (set-face-font face basefont frame)
+	    (when (display-graphic-p frame)
+	      (set-face-font face basefont frame))
 	    (set-face-underline-p face (string-match "underline" fn))
 	    (if (string-match ".*bold" fn)
 		;; make face bold in all frames
@@ -945,7 +946,6 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (and (not hilit-inhibit-rebinding)
-     window-system
      (progn 
        (substitute-key-definition 'yank     'hilit-yank
 				  (current-global-map))
@@ -956,13 +956,11 @@
 
 (global-set-key [?\C-\S-l] 'hilit-repaint-command)
 
-(and window-system
-     (add-hook 'find-file-hooks 'hilit-find-file-hook t))
+(add-hook 'find-file-hooks 'hilit-find-file-hook t)
 
 (eval-when-compile (require 'gnus))	; no compilation gripes
 
 (and (not hilit-inhibit-hooks)
-     window-system
      (condition-case c
 	 (progn