diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-10-18 09:55:37 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-10-18 09:55:37 +0000 |
| commit | d0035f7a52ea876d6dce3fe56bf9bd8ca0c1e76b (patch) | |
| tree | 9a19ac969c23a8e306ba9ba7165ad9ddc5cbd164 /lisp/obsolete | |
| parent | d8055bfc8f4883f2bfc217b448cba1461252db27 (diff) | |
| download | emacs-d0035f7a52ea876d6dce3fe56bf9bd8ca0c1e76b.tar.gz | |
(hilit-lookup-face-create): Call
set-face-font only if display-graphic-p.
(toplevel): Remove references to window-system.
Diffstat (limited to 'lisp/obsolete')
| -rw-r--r-- | lisp/obsolete/hilit19.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/obsolete/hilit19.el b/lisp/obsolete/hilit19.el index 0adcb88a678..e70045e641e 100644 --- a/lisp/obsolete/hilit19.el +++ b/lisp/obsolete/hilit19.el @@ -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 @@ See the documentation for hilit-translate and hilit-face-translation-table." ;; 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 @@ the entire buffer is forced." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (and (not hilit-inhibit-rebinding) - window-system (progn (substitute-key-definition 'yank 'hilit-yank (current-global-map)) @@ -956,13 +956,11 @@ the entire buffer is forced." (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 |