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

Use frame-parameters, not font-lock-background-mode and font-lock-display-type.

Browse Source
This commit is contained in:
Simon Marshall 1995-10-30 08:31:08 +00:00
parent 6c8a1e24b9
commit 97af036810
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/progmodes/make-mode.el
View File

@ -1364,17 +1364,16 @@ Uses `makefile-use-curly-braces-for-macros-p'."
(defun makefile-define-space-face ()
(make-face 'makefile-space-face)
(or (face-differs-from-default-p 'makefile-space-face)
(let* ((light-bg (eq font-lock-background-mode 'light))
(bg-color
(cond ((memq font-lock-display-type '(mono monochrome))
(if light-bg "black" "white"))
((memq font-lock-display-type '(grayscale greyscale
grayshade greyshade))
(if light-bg "black" "white"))
(light-bg ; Light color background.
"hotpink")
(t ; Dark color background.
"hotpink"))))
(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.
"hotpink")
(t ; Dark color background.
"hotpink"))))
(set-face-background 'makefile-space-face bg-color))))
;;; makefile.el ends here