procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(makefile-mode): Call makefile-define-space-face only if it is defined.

Browse source 
(makefile-define-space-face): Create the face unconditionally;
alter it only if have X.
This commit is contained in:
Richard M. Stallman 1995-11-10 04:44:37 +00:00
parent 4fd72a6a40
commit ebeafce6a5
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/progmodes/make-mode.el
View file

@ -487,7 +487,8 @@ makefile-special-targets-list:
(make-local-variable 'makefile-need-macro-pickup)
;; Font lock.
(makefile-define-space-face)
(if (fboundp 'makefile-define-space-face)
(makefile-define-space-face))
(make-local-variable 'font-lock-defaults)
(setq font-lock-defaults '(makefile-font-lock-keywords))
@ -1362,18 +1363,18 @@ Uses `makefile-use-curly-braces-for-macros-p'."
(nreverse alist)))
(defun makefile-define-space-face ()
(if (eq window-system 'x)
(make-face 'makefile-space-face))
(or (face-differs-from-default-p 'makefile-space-face)
(make-face 'makefile-space-face)
(or (not (eq window-system 'x))
(face-differs-from-default-p 'makefile-space-face)
(let* ((params (frame-parameters))
(light-bg (cdr (assq 'background-mode params)))
(bg-color (cond ((eq (cdr (assq 'display-type params)) 'mono)
(if light-bg "black" "white"))
((eq (cdr (assq 'display-type params)) 'grayscale)
(if light-bg "black" "white"))
(light-bg ; Light color background.
(light-bg ; Light color background.
"hotpink")
(t ; Dark color background.
(t ; Dark color background.
"hotpink"))))
(set-face-background 'makefile-space-face bg-color))))