mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(hilit-lookup-face-create): Call

Browse Source 
set-face-font only if display-graphic-p.
(toplevel): Remove references to window-system.
This commit is contained in:
Gerd Moellmann 2001-10-18 09:55:37 +00:00
parent d8055bfc8f
commit d0035f7a52
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2001-10-18 Gerd Moellmann <gerd@gnu.org>
* obsolete/hilit19.el (hilit-lookup-face-create): Call
set-face-font only if display-graphic-p.
(toplevel): Remove references to window-system.
2001-10-18 Miles Bader <miles@gnu.org>
* simple.el (what-line): Avoid problems with field properties.

10
lisp/obsolete/hilit19.el
View File

@ -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