diff options
author | Gerd Moellmann <gerd@gnu.org> | 2001-10-18 09:57:55 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2001-10-18 09:57:55 +0000 |
commit | 6860efd01aee5e81b0067e4eeab0413874fab185 (patch) | |
tree | 79d1247f8af60ff5983f3a928e789ef289d2b62f | |
parent | adb0be2efd3e99d720ed3c54b1b51db4a3115ff7 (diff) | |
download | emacs-6860efd01aee5e81b0067e4eeab0413874fab185.tar.gz |
(hilit-lookup-face-create): Call
set-face-font only if display-graphic-p.
(toplevel): Remove references to window-system.
-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 |